Incrémentation chaine alphanumérique

Bonjour,

Je souhaiterai incrémenter une cellule par VBA de cette façon:

A chaque fois que je lance ma macro, ma cellule A1 (qui est alphanumérique) augmente de 1 de sorte que:

Si ma cellule A1 à l'origne est egale à N001, ma cellule A1 après lancement de la macro sera egale à N002

Si ma cellule A1 à l'origne est egale à N002, ma cellule A1 après lancement de la macro sera egale à N003

Si ma cellule A1 à l'origne est egale à N003, ma cellule A1 après lancement de la macro sera egale à N004....

Merci d'avance de votre réponse.

Cordialement,

Jean-Philippe

Bonjour,

tu peux essayer cela :

Sub Incrementer()

Range("A1").Value = Left(Range("A1").Value, Len(Range("A1").Value) - 3) & Format(Right(Range("A1").Value, 3) + 1, "000")

End Sub

Cordialement,

RemBabar

Excellent!

Merci beaucoup.

Bonne fin de semaine!

Avec plaisir,

Bon weekend à toi aussi !

RemBabar