Date sous 3 textbox (VBA) [Résolu/Fermé]

Signaler
-
 Remy424242 -
Bonjour,
Débutant en language VBA, j'aimerais savoir comment faire pour renseigner un champs date dans une fenêtre. Cependant, au lieu de me compliquer la vie pour imposer un format et convertir tous les autres types de format que pourrait rentrer un utilisateur, je voulais faire un style de textbox comme on peut le voir avec les keylog.
C'est à dire que je voudrais faire 3 text box, 1 pour le jour, l'autre le mois et enfin l'année où dans chacune le nombre de caractère maximum et minimum serait respectivement 2,2 et 4. Pour finir, le passage de la 1er textbox à la seconde et de la seconde à la 3ème se ferait automatique une fois le nombre de caractère max atteint.
Est-ce possible ?
Auriez-vous une idée (ou 2)...(ou plusieurs^^)?

2 réponses

Messages postés
15527
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
24 janvier 2021
1 439
Bonjour,

exemple de code sans test des entrees

Definir MaxLengh des textbox's dans les proprietes ou par programme et

ajouter les tests des caracteres numeriques.

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox1.Text) = TextBox1.MaxLength Then
TextBox2.SetFocus
End If
End Sub

Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox2.Text) = TextBox2.MaxLength Then
TextBox3.SetFocus
End If
End Sub

Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox3.Text) = TextBox3.MaxLength Then
MsgBox ("ok")
End If
End Sub


Bonne suite
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

Merci beaucoup, ca marche superbement bien !!!