Bonjour,

Dans un UserForm (FrmEngt) (page1), j'ai un TextBox (TnumInc) que je souhaite incrémenté à chaque fois que l'UserForm est activé, mais avec une possibilité d'effacement du numéro tant que l'on a pas appuyé sur le bouton valider de l'UserForm.

En clair, si un agent active l'UserForm par erreur et le referme aussitôt, l'incrémentation reprends là où elle s'est arrétée.

Dans l'UserForm j'ai 3 boutons (Valider, Annuler, Fermer)

Peut-on les utiliser ?

Comment faire ? Merci pour votre aide

J'ai essayé de reprendre le dernier numéro de la colonne A de la Feuille "Engagement", là où sont stockés les numéros d'ordre d'entrée, mais je n'y arrive pas.

J'ai essayé avec ces codes mais sans succès :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Private Sub UserForm_Activate()
If Sheets("Engagements").Range("A6").Value="" then
Me.TnumInc.Value=1
End If
End Sub
Ensuite
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Private Sub CbOk_AfterClick()
Me.TnumInc.Value=Sheets("Engagements").Range("A65535").End(xlUp).Row + 1
End Sub
Mais sans succès