Ajout de caractères fin d'une cellule VBA [Résolu/Fermé]

Signaler
-
 Lois -
Bonjour,

Je débute en VBA et je ne sais pas comment résoudre un problème que je rencontre. J'ai dans une colonne plusieurs fois les mêmes références, donc j'aimerais les différencier de la manière suivante:
TF0145(1)
TF0145(2)
TF0145(3)
GR1545(1)
GR1545(2)
...

Pour différencier un type de référence, j'avais pensé faire un truc du genre:
Dim i As Integer
Dim j As Integer
For i = 5 To 11
For j = 1 To 6
Worksheets("Feuil1").Cells(i, 2) = Worksheets("Feuil1").Cells(i, 2) & "(" j ")"
Exit For
Next j
Next i

Mais j'ai une erreur de syntaxe et je ne sais pas comment la résoudre.
Quelqu'un aurait une solution pour moi svp?

1 réponse

Messages postés
9745
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 juillet 2020
1 074
Bonjour,
Au passage, votre ligne de code comme suit :
Worksheets("Feuil1").Cells(i, 2) = Worksheets("Feuil1").Cells(i, 2) & "("& j & ")"
Merci bcp, c'est ce qu'il me manquait. :)