OVH Cloud OVH Cloud

forcé le focus à changer de place

2 réponses
Avatar
Mojojojo
Salut...

J'ai un UserForm avec 3 txtBox dans lesquels l'utilisateur=20
doit entre successivement le jour le mois et l'ann=E9e.

Mais ce que j'aimerai, c'est qu'une fois qu'il a ins=E9r=E9 le=20
jour (p.ex. 17)le focus passe directement dans le txtBox=20
concernant le mois sans qu'il ait besoin de faire Tab.

Merci pour vos lumi=E8res...

2 réponses

Avatar
Elimac
Bonjour,

Avec les TextBox "Jour" et "Mois" :
Private Sub Jour_Change()
If Len(Jour) = 2 Then Mois.SetFocus
End Sub

Change de focus quand 2 caractères sont tapés.
On doit pouvoir tester aussi si c'est compris entre 1 et
31 ou autre avec une gestion d'erreur ou affichage de
messages...

Camille

-----Message d'origine-----
Salut...

J'ai un UserForm avec 3 txtBox dans lesquels
l'utilisateur

doit entre successivement le jour le mois et l'année.

Mais ce que j'aimerai, c'est qu'une fois qu'il a inséré
le

jour (p.ex. 17)le focus passe directement dans le txtBox
concernant le mois sans qu'il ait besoin de faire Tab.

Merci pour vos lumières...
.



Avatar
Mojojojo
Merci beaucoup...
Tout fonctionne nickel, et j'ai aussi fait le test pour
voir si la personne ne met pas un chiffre plus haut que 31
pour le jour



-----Message d'origine-----
Bonjour,

Avec les TextBox "Jour" et "Mois" :
Private Sub Jour_Change()
If Len(Jour) = 2 Then Mois.SetFocus
End Sub

Change de focus quand 2 caractères sont tapés.
On doit pouvoir tester aussi si c'est compris entre 1 et
31 ou autre avec une gestion d'erreur ou affichage de
messages...

Camille

-----Message d'origine-----
Salut...

J'ai un UserForm avec 3 txtBox dans lesquels
l'utilisateur

doit entre successivement le jour le mois et l'année.

Mais ce que j'aimerai, c'est qu'une fois qu'il a inséré
le

jour (p.ex. 17)le focus passe directement dans le txtBox
concernant le mois sans qu'il ait besoin de faire Tab.

Merci pour vos lumières...
.

.