Bonjour,
Est-il possible en cas de doublon d'ajouter à la fin de la valeur : "_" et un numéro chronologique ?
Voici la macro :
Il fonctionne mais je ne sais pas comment ajouter le "_" et il modifie l'ordre des noms or je souhaite absolument garder l'ordre des noms tel qu'ils sont écrit au départ
Merci par avance
Est-il possible en cas de doublon d'ajouter à la fin de la valeur : "_" et un numéro chronologique ?
Voici la macro :
Code:
Sub test()
'ligne et colonne de debut d'ecriture
ligne = 1
colonne = 2
'mise sous forme de tableau de la liste
Tablo = Range("A1:A" & Range("A65536").End(xlUp).Row) ' a adapter pour la liste d'origine
'creation d'un dictionnaire contenant les noms et le nombre par nom
Set d = CreateObject("Scripting.dictionary")
For n = LBound(Tablo) To UBound(Tablo)
x = Tablo(n, 1)
d(x) = d(x) + 1
Next n
'ecriture du resultat
a = d.keys
b = d.items
For n = LBound(a) To UBound(a)
For m = 1 To b(n)
If b(n) > 1 Then
Cells(ligne, colonne) = a(n) & m
Else
Cells(ligne, colonne) = a(n)
End If
ligne = ligne + 1
Next m
Next n
End Sub
Il fonctionne mais je ne sais pas comment ajouter le "_" et il modifie l'ordre des noms or je souhaite absolument garder l'ordre des noms tel qu'ils sont écrit au départ
Merci par avance
Dernière édition: