incrementation champ UF à partir d'un autre UF

[sebbb]

Bonjour à tous,
G'Claire, Hervé, André et les autres!

Pour comprendre plus facilement, consulter la pièce jointe.

Voilà, j'ai sur l'UF 1 un champ à incrémenter par l'intermédiaire d'un commandbutton de l'UF 2 qui apparait qd on clic sur 'Valider'.

J'arrive à incrémenter mon champ, mais qd je ferme l'UF2 et que je l'ouvre de nouveau et que je clique sur Oui, mon champ repart à 1 or je voudrais qu'il continue de s'incrémenter.

COMMENT FAIRE POUR QUE CE SOIT LE CAS????

Merci pour l'aide que vos réponses m'apporteront!!

A bientot,
Sébbb

 

[GClaire]

Sébbb, le forum

Moi a ta place je passerai par Une MsgBox, se qui donnerai dans ton bouton :

Private Sub CommandButton1_Click()
Dim message

message = MsgBox("Etes-vous sur de cette incrémentation ?", _
vbYesNo + vbQuestion, "VALIDATION")
If message = vbNo Then Exit Sub
If message = vbYes Then
i = i + 1
UserForm1.TextBox1.Text = "Simu" & i
End If
End Sub

Bye a plus, G'Claire

 

[sebbb]

Merci, MERCI!!!

Car en plus de me donner la solution, tu m'as fais découvrir les Msgbox avec "boutons".

Bonne journée,
A +
Sébbb.