Discussion :

[Missouflo]

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.

[jfontaine]

Bonjour,

Dans ton cas j'utiliserais l’évènement Exit

Cancel = True empèche la sortie de la textbox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
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
    Cancel = True
End If
End Sub

[Missouflo]

Ah ok merci ça marche bien pour rester sur la textbox mais par contre il y a un soucis : une fois que je corrige et que je passe à la textbox suivante ça efface la date :/

Et ça crée aussi un autre problème : si je décide de cliquer sur le bouton "annuler" de mon userform ça réagit comme si l'utilisateur s'était trompé de format et ça fait buguer le programme

[jfontaine]

es tu sur de cette ligne

Code :

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

 TextBox_birthdate.Text = Format(TextBox1.Text, "dd/mm/yyyy")

[Missouflo]

Ok je m'étais effectivement planté sur cette ligne en oubliant de changer le nom de ma textbox.

Mais le problème subsiste lorsque je quitte la fenêtre

En fait le problème ne provient pas de ta solution (qui marche donc parfaitement bien) mais du fait que je place le focus sur une textbox dans une fenêtre qui n'existe plus...

Quelqu'un aurait-il une solution ?

[jfontaine]

Tu peux aussi supprimer cette ligne, qui ne sert plus

Code :

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

TextBox_birthdate.SetFocus