Incrémenter un numéro qui apparait dans une TextBox

Bonjour, Bonjour

J'ai créé un registre matière, dans lequel je viens de créer un formulaire, pour rentrer une nouvelle matière. La suite de mon code est correcte, mais actuellement je dois créer des références matière avec des numéros incrémenté.

J'ai le code qui me permet de récupérer le dernier numéro crée de mon registre, mais je veux lui ajouter 1,

Actuellement quand j'ouvre mon formulaire dans la TextBox Entreprise, le dernier numéro crée apparait, mais vu que je veux créer une nouvelle matière je dois ajouter 1 à cette valeur.

Pouvez-vous m'aider ?

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize()   Dim DerLig As Long With Worksheets("REGISTRE-MP") DerLig = .Range("A1048570").End(xlUp).Row Me.tbEntreprise = .Range("A" & DerLig)   End With   End Sub

---

Code:

---

me.machin=.range("truc").value+1

---

En ajoutant simple value+1 ça ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize()   Dim DerLig As Long With Worksheets("REGISTRE-MP") DerLig = .Range("A1048570").End(xlUp).Row Me.tbNSterne = .Range("A" & DerLig).Value + 1   End With   End Sub

---

Tu as des numériques en colonne A au moins

Mes numéro sont composé de STxxx est trois numéro, ca ne peut pas fonctionner ?

Code:

---

Me.machin = "ST" & Format(Val(Mid(.Range("truc"), 3))+1, "000")

---

ou

Code:

---

me.machin=Format(Val(Mid(.Range("truc"), 3)) + 1, "\ST000")

---

Je suis vraiment désolé je fais de mon mieux mais ça me remet dans ma TextBox le dernier numéro crée

C'est bon ça marche avec ta deuxième solution !

Un grand merci !!!

Regardes bien. Elles sont identiques mais autrement ;)

N'oublies pas le +1 à la valeur extraite de la dernière cellule remplie