Date sous 3 textbox (VBA)
Résolu
Remy424242
-
Remy424242 -
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^^)?
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^^)?
A voir également:
- Date sous 3 textbox (VBA)
- Ai suite 3 - Télécharger - Optimisation
- Airpods 3 date de sortie - Guide
- Picasa 3 - Télécharger - Albums photo
- Photorecit 3 - Télécharger - Visionnage & Diaporama
- Imagen 3 - Accueil - Applications & Logiciels
2 réponses
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
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