Discussion :

[Touffe54]

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 :

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

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.

[mercatog]

Bonsoir,

utilise l'évènement Exit

Code :

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

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

[Touffe54]

Merci pour la solution.