Ajout d'un numéro en fonction d'un classement avec doublons vba

[thespeedy20]

Bonjour,

J'ai un classement qui s'effectue automatiquement sur ma feuille et j'aimerais lui ajouter un numéro également automatique....
ex : aaa
aaa
bbb
ccc
ccc

Cela donnerait :

1 aaa
1 aaa
2 bbb
3 ccc
3 ccc
4 ddd


Merci d'avance pour votre aide

Oli

 

[thespeedy20]

re mapomme,

le voici

 

[mapomme]

Re,

ça semble fonctionner. J'ai juste rajouter l'effacement de la colonne A avant la renumérotation.

 

[thespeedy20]

re mapomme,

Quand j'efface toutes les données, pour partir d'une feuille vierge, il numérote la colonne jusqu'au bout(la dernière ligne 1048576) ....avec une erreur définie par l'application ou par l'objet....:-(

 

[mapomme]

Re,

Quand j'efface toutes les données, pour partir d'une feuille vierge, il numérote la colonne jusqu'au bout(la dernière ligne 1048576) ....avec une erreur définie par l'application ou par l'objet

Voir la v3

 

[thespeedy20]

Bonjour mapomme,

c'est impeccable, cela fonctionne très bien... je te remercie vivement pour ton aide.....

Oli

 

[thespeedy20]

bonsoir mapomme,

Si je devais adapter ton code à une plage de cellule , par exemple de D15:C60 ?

Oli

 

[mapomme]

Bonjour @thespeedy20 ,

Voir la version v5. Des explications se trouvent dans le fichier. Le code est commenté.

 

[thespeedy20]

Bonjour mapomme,

Je pense que cette fois-ci la boucle est bouclée...., j'ai pu adapter ton code sur un autre projet.....tes explications ont été très précieuses.....

je t'en remercie encore....je clôture ici le poste....

OLi