Textbox : taper Date sans slash
Fermé
LANGAZOU
Messages postés
95
Date d'inscription
vendredi 16 janvier 2015
Statut
Membre
Dernière intervention
8 novembre 2015
-
Modifié par LANGAZOU le 27/02/2015 à 11:20
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 27 févr. 2015 à 11:56
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 27 févr. 2015 à 11:56
A voir également:
- Textbox : taper Date sans slash
- Slash inversé ✓ - Forum Clavier
- Anti slash ✓ - Forum Programmation
- Iphone 14 date de sortie - Guide
- Slash clavier ✓ - Forum Clavier
- Anti-slash clavier qwerty - Forum Windows
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
27 févr. 2015 à 11:42
27 févr. 2015 à 11:42
Bonjour,
Ajout de "/" au fur et à mesure de la saisie:
Sources
Ajout de "/" au fur et à mesure de la saisie:
Sources
Private Sub TextBox1_Change()
'http://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-E
Dim Valeur As Byte
TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox1)
If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
End Sub
'Ensuite pour vérifier que c'est bien une date qui a été saisie
Private Sub CommandButton1_Click()
'http://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-E
If Not IsDate(TextBox1) Then
MsgBox "Format incorrect"
TextBox1 = ""
Exit Sub
Else
MsgBox "Format correct"
'...la suite de la procédure
End If
End Sub
27 févr. 2015 à 11:55
Bonne journée
27 févr. 2015 à 11:56
Bonne journée à toi également