Bonsoir à tous,

J'ai pas mal cherché sur le web mais je n'ai pas trouvé la réponse à ma question.

Je cherche juste à faire une petite condition sur une textbox pour forcer l'utilisateur à rentrer une date dedans.
Pour ça j'utilise AfterUpdate de la textbox et je regarde s'il a bien rentré une date (pour le moment c'est bon ça marche) et dans le cas contraire je lui mets une msgbox et j'aimerais sélectionner automatiquement le texte rentré dans la textbox pour qu'il puisse le modifier.

C'est là que ça bloque : le message s'affiche bien mais le curseur passe quand même à la textbox suivante

Voilà mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub TextBox_birthdate_AfterUpdate()
If IsDate(TextBox_birthdate.Text) Then
    TextBox_birthdate.Text = Format(TextBox1.Text, "dd/mm/yyyy")
Else
    MsgBox "La date n'est pas au bon format"
    TextBox_birthdate.SelStart = 0
    TextBox_birthdate.SelLength = Len(TextBox_birthdate.Text)
    TextBox_birthdate.SetFocus
End If
End Sub
J'espère que quelqu'un pourra m'aider.