Private Sub TextBox1_change()
Dim valeur as Byte
TextBox1.MaxLenght=7
valeur=Len(TextBox1)
If valeur = 2 then TextBox1 = TextBox1 & "/"
End Sub
Private Sub UserForm_Initialize()
TxtDateVerif.SetFocus
End Sub
Private Sub TxtDateVerif_Change()
If Len(TxtDateVerif) = 2 And TxtDateVerif > 12 And TxtDateVerif >= 0 Then GoTo suite
If Len(TxtDateVerif) = 2 Then TxtDateVerif = TxtDateVerif & "/"
Exit Sub
suite:
TxtDateVerif = "": MsgBox "Mauvaise saisie!": Beep
UserForm_Initialize
End Sub
Private Sub Fermer_Click()
ActiveCell = CDate("01/" & TxtDateVerif)
End Sub