Incrémenter colonne

[clem9]

Bonjour,

J'ai un fichier avec des noms dont certains sont en doublon. Je ne souhaite pas supprimer les doublons. J'ai besoin d'insérer une colonne où à chaque nouveau nom, l'index serait incrémenté sauf pour les doublons. Par ex :
1 DURAND Sylvie
2 DUPONT Anne
2 DUPONT Anne
2 DUPONT Anne
3 THOMAS Gérard
4 MARTIN Jérôme
4 MARTIN Jérôme

Je ne sais pas si mon explication est très clair... Si quelqu'un a compris mon problème et a une idée...

 

[pierrejean]

Re : Incrémenter colonne

bonjour clem9

Et bienvenue sur XLD

teste cette macro

Sub test()
no = 1
Columns("A").Insert
Range("A1") = 1
For n = 2 To Range("B65536").End(xlUp).Row
  If Range("B" & n) <> Range("B" & n - 1) Then no = no + 1
  Range("A" & n) = no
Next n
End Sub

 

[abcd]

Re : Incrémenter colonne

Bonjour,

Une proposition par formule.

abcd

 

[clem9]

Re : Incrémenter colonne

Chapeau bas Pierre Jean !
Cela fonctionne à merveille.
Je comencais à me dire que j'allais devoir faire cela manuellement.
Et merci à abcd. Je vais tester également.