Activer case dans userform

[GillesC]

Bonjour le Forum!
Voici mon problème:
Mon userform contient 2 cases que l'utilisateur doit remplir.
F_Date1 et F_Date2
Si saisie en F_Date2 alors F_Date1 est obligatoire.
Quel est SVP le script pour faire pointer le curseur sur F_Date1 dans mon userform à la suite du message d'erreur de mon Msgbox?
Merci d'avance

 

[globinours]

Bonjour Gilles,

essaye apres ton msgbox:
F_Date1.setfocus

 

[GillesC]

Merci beaucoup!! C'est tout à fait ça !

 

[Blunet]

Salut Gilles, L'exemple que je te donne positionne le curseur dans F_Date1 dès que F_Date2 est saisi (il suffit d'introduire le curseur dans F_Date2 pour ci=onsidéré qu'on y a saisit quelque chose).

Private Sub F_Date2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
UserForm1.F_Date1.SetFocus
End Sub

Private Sub TextBox3_Enter()
If F_Date1.Value = '' Then
UserForm1.F_Date1.SetFocus
End If
End Sub

J'ai ajouté un 3ème contrôle Texbox3 pour mieux illustrer.
Ciao

 

[Blunet]

salut globinours re Gilles j'ai pas actualisé avant de posté. Le problème est résolu.

Ciao

 

[GillesC]

Merci malgré tout Blunet!