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