Evénement TextBox

bonjour

voici mon UserForm qui contient 3TextBox

TextBox1 pour les jours. (maxLength=2)

TextBox2 pour les mois. (maxLength=2)

TextBox3 pour les années. (maxLength=4)

Svp quelle est l'événement utiliser pour déplacer le curseur dans TextBox2 après la saisie de deux chiffres dans TextBox1 sans utiliser la touche entrée ou les flèches de directions.

merci

Bonjour ilies, le forum,

Un essai.....

Private Sub TextBox1_Change()
 If Len(Me.TextBox1) = Me.TextBox1.MaxLength Then TextBox2.SetFocus
End Sub

Private Sub TextBox2_Change()
 If Len(Me.TextBox2) = Me.TextBox2.MaxLength Then TextBox3.SetFocus
End Sub

Private Sub TextBox3_Change()
 If Len(Me.TextBox3) = Me.TextBox3.MaxLength Then TextBox1.SetFocus
End Sub

Cordialement,

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

pour vérifier si les nombres inscrit corresponde à une vrai date, il faut mettre dans l'ordre Année Mois Jour

Private Sub TextBox1_Change()
Application.EnableEvents = False
    TextBox2 = ""
    TextBox3 = ""
    If Len(TextBox1.Value) = 3 Then
        TextBox1.Value = Left(TextBox1.Value, 2)
        TextBox2.SetFocus
    End If
Application.EnableEvents = True
End Sub

Private Sub TextBox2_Change()
Application.EnableEvents = False
    TextBox3 = ""
    If Len(TextBox2.Value) = 3 Then
        TextBox2.Value = Left(TextBox2.Value, 2)
        TextBox3.SetFocus
    End If
Application.EnableEvents = True
End Sub

Private Sub CommandButton1_Click()
MsgBox "Date: " & DateSerial(Me.TextBox3, Me.TextBox2, Me.TextBox1)
End Sub

Bonjour

et moi je préfère avec des combobox surtout pour la gestion des mois

A voir

A+

Maurice

Bonjour

merci beaucoup les amis c'est exactement ce que je recherche.