vba auto incrémenter un numéro?

j'essaie d'insérer un numéro de référence à une cellule dans excel en utilisant vba. Je veux un texte préfixe de "V0000", suivi par une auto nombre incrémenté à partir de 836. 

so for each row that gets inserted I will have V0000836
Then V0000837
etc

Une grande partie de mon code crée une nouvelle ligne et insère des données dans automatiquement l'un après l'autre, mais au lieu de poster mon code entier je suis juste désireux de se concentrer sur une ligne de code qui insère la valeur dans la colonne AA de ma feuille de calcul. Je suis l'aide de la suite mais il me donne juste V00001 à chaque fois. quelqu'un peut-il me montrer comment je peux obtenir mon code pour faire ce que je veux. 

ws2.Range("AA" & DestRow).Value = "V0000836" & Value + 1
InformationsquelleAutor liam spence | 2014-10-13
  1. 1

    Envisager une alternative qui ne retirez pas numérique (mathématiques), la fonctionnalité de la valeur de la cellule.

    ws2.Range("AA" & DestRow).numberformat = "\V0000000"
ws2.Range("AA" & DestRow).Value = 836 + 1

    Si vous avez besoin de la mise en forme (affiche) alphanumérique, vous pouvez le récupérer comme ça.

    Dim str as string, num as long
str = ws2.Range("AA" & DestRow).text    '◄ V0000837
num = ws2.Range("AA" & DestRow).value   '◄ 837
    • ++ c'est le chemin à parcourir, mais être prudent en utilisant .Text comme si la largeur de la colonne est assez petit et le texte affiche réellement ### alors que c'est la valeur .Text sera de retour ### qui ne sera pas toujours ce qui est attendu. Probablement une meilleure alternative pour retourner la valeur mise en forme serait Format(ws2.Range("AA" & DestRow).Value, "\V0000000")
    • Merci pour cela, mais il n'est pas tout à fait faire ce dont j'ai besoin, il ajoute 1 à V0000836 qui rend V0000837 mais lorsque j'exécute mon code et de créer une nouvelle ligne, le nombre reste le même que V0000837 et je veux qu'il aille jusqu'à V0000838 et 839 etc pour chaque nouvelle ligne
    • spence - Essayez ws2.Range("AA" & DestRow) = ws2.Range("AA" & DestRow).offset(-1, 0) + 1. Il y a un certain nombre de façons d'augmenter le nombre une fois que vous faites affaire avec de vrais numéros.
    InformationsquelleAutor
  2. -1

    À l'aide de VBA, vous pouvez le faire en incrémentant le numéro de chaque fois que la boucle tourne en rond et puis en préfixant le V0000 à l'avant de la sorte:

    Dim i As Integer
Dim cell As Range, rng As Range

Set rng = Range("A1:A10")

i = 836

For Each cell In rng
    cell.Value = "V000" & i
    i = i + 1
Next cell
    • cela ne semble pas fonctionner, produit toujours le même résultat V0000836
    • Juste testé et fonctionne très bien pour moi?
    • Ce sera toujours un préfixe de "V000", ce qui n'est pas droit, car si vous avez des dizaines, des centaines, des milliers, vous aurez toujours ce préfixe. par exemple. 'V0009', 'V00099','V000999', pour quand " je " est de 9, 99, 999, respectivement
    InformationsquelleAutor Gareth