SetFocus et message

[bernardrustrel]

Bonjour à tous
Le fichier joint permet lorsque le textbox1 n'est pas saisi de signaler à l'utilisateur qu'il lui faut le saisir ; Jusque là tout va bien.
Cependant à la fermeture du USERFORM ce même message réapparait, je ne veux pas ajouter une condition du style
if Textbox1 = "" then, car c'est cette même condition qu'est basé l'apparition de mon message d'avertissement.

Aussi j'en fait appel à vos compétences afin de m'aider à faire disparaître cette deuxième apparition.
Merci par avance
Cordialement
Bernard

 

[JBARBE]

Re : SetFocus et message

Bonjour à tous,

Remplacer :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then
MsgBox ("Vous devez entrer une valeur numérique, dans la cellule colorée")
TextBox1.BackColor = RGB(0, 255, 0)
Cancel = 1
Else
TextBox1.BackColor = RGB(255, 255, 255)
TextBox2.SetFocus
End If
End Sub

Par :

Private Sub BtnValidationSaisie_Click()
If TextBox1 = "" Then
MsgBox ("Vous devez entrer une valeur numérique, dans la cellule colorée")
TextBox1.BackColor = RGB(0, 255, 0)
Cancel = 1
Else
TextBox1.BackColor = RGB(255, 255, 255)
TextBox2.SetFocus
End If
End Sub

En effet TextBox1_Exit permet que celui sort en même temps que la boite de dialogue en faisant fonctionner la macro !

bonne journée !