focus sur TextBox dans UserForm

J'ai des textbox dans un userform. Dans l'évènement AfterUpdate des textbox, je teste la validité des entrées et si ce n'est pas bon, j'utilise la méthode :

Code:

---

1 2	Textbox1.SetFocus

---

pour forcer l'utilisateur à entrer ses données correctement. Mais çà ne fonctionne pas, c'est le textbox suivant qui a le focus.

Bonsoir,

utilise l'évènement Exit

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Me.TextBox1.Text <> "aa" And Me.TextBox1.Text <> "" Then Cancel = True Me.TextBox1.Text = "" MsgBox "donnée invalide" End If End Sub

---

Merci pour la solution.