bonjour à tous, je cherche à obliger un format date dans un textbox, de type jj/mm/aaaa,
j'ai donc vu la doc sur le site, mais cela ne marche pas et je ne vois pas pourquoi:
c'est la partie en gras qui doit comporter une erreur,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Private Sub TextBox1_Change() 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() 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
alors si qq'un a une idée![]()
Partager