Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Incrémenter colonne

clem9

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re : Incrémenter colonne

bonjour clem9

Et bienvenue sur XLD

teste cette macro

Code:
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
 

clem9

XLDnaute Nouveau
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.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…