Incrémentation valeur avec texte fixe

Bonjour à tous,

Je bloque sur un petit programme très simpliste, voilà à quoi ça ressemble :

J'incrémente en colonne A la valeur de la dernière cellule non vide + 1, mais je n'arrive pas à "ignorer le MB" dans mon addition.

Pour le moment j'incrémente le texte et la valeur qui suit !

Cells(i, 1) = Cells(i - 1, 1) + 1

Je me suis dit peut-être qu'il fallait utiliser la fonction "Left" mais je n'y suis pas arriver !

J'ai trouvé quelques exemples sur le forum mais qui n'était pas en VBA.

Merci par avance..

Cordialement

Bonjour,

à tester,

Sub test()
rw = Cells(Rows.Count, "A").End(xlUp).Row
n = "MB" & Right(Cells(rw, "A"), Len(Cells(rw, "A")) - 2) + 1
Cells(rw + 1, "A") = n
End Sub

Bonjour,

Je ne comprends rien ?

Reformule ta question et joins un fichier, ou du moins une procédure VBA entière.

Une copie d'écran est inutile.

Cdlt.

Bonjour toutes et tous

coucou Jean-Eric et i20100

j'ai mis en cellule B2

=CNUM(DROITE(A2:A20;NBCAR(SUBSTITUE(A2:A20;"MB";""))))

tiret jusqu'en cellule B20

et, en A21 la somme:

=SOMME(B2:B20)

crdlt,

André

i20100 a écrit :

Bonjour,

à tester,

Sub test()
rw = Cells(Rows.Count, "A").End(xlUp).Row
n = "MB" & Right(Cells(rw, "A"), Len(Cells(rw, "A")) - 2) + 1
Cells(rw + 1, "A") = n
End Sub

Merci à toi, ta solution était celle que je souhaitais !

Merci aux autres pour vos messages.

EDIT : Petite question, quel valeur faut-il modifier si ma codification démarre à "MB00001" et non "MB1" ?

Cordialement

EDIT : Petite question, quel valeur faut-il modifier si ma codification démarre à "MB00001" et non "MB1" ?

Cordialement

voilà,

Sub test()
rw = Cells(Rows.Count, "A").End(xlUp).Row
n = Format(Right(Cells(rw, "A"), Len(Cells(rw, "A")) - 2) + 1, "00000")
Cells(rw + 1, "A") = "MB" & n
End Sub

Merci pour la rapidité !!