Discussion :

[sophie284]

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sophie284]

En ajoutant simple value+1 ça ne fonctionne pas

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.tbNSterne = .Range("A" & DerLig).Value + 1
 
End With
 
End Sub

[mercatog]

Tu as des numériques en colonne A au moins

[sophie284]

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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