Problème avec SetFocus

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:

---

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.

Bonjour,

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

Cancel = True empèche la sortie de la textbox

Code:

---

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

---

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 :(

es tu sur de cette ligne

Code:

---

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

---

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 ?

Tu peux aussi supprimer cette ligne, qui ne sert plus

Code:

---

TextBox_birthdate.SetFocus

---

Bon eh bien mon problème est entièrement réglé, merci beaucoup !! :P