Private Sub textBox1_Change()
Dim Valeur As Byte
textBox1.maxLength = 10 'nb caracteres maxi dans 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.Value) Then
msgBox "Format incorrect"
textBox1 = ""
Exit Sub
Else
msgBox "Format correct"
'...la suite de la procedure
End If
End Sub