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 : Sélectionner tout - Visualiser dans une fenêtre à part
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