Bonjour
pour ma part j'utilise une combinaison des événements change et afterupdate. Ce code permet de saisir ou pas avec les /, d'accepter les dates abrégées type 1/1/4 (la, faut saisir les / quand même) et de vérifier le format des données entrées. Un exemple en pièce jointe
Cordialement, A+
Private Sub Datedeb_AfterUpdate()
If Not (IsDate(Datedeb.Value)) Then
MsgBox "Erreur sur la date de début": Datedeb.Value = ""
Else
Datedeb.Value = Format(DateValue(Datedeb.Value), "dd/mm/yyyy")
Me.JourDeb.Value = Format(DateValue(Datedeb.Value), "dddd")
End If
End Sub
Private Sub Datedeb_Change()
If Right(Datedeb.Value, 2) = "//" Then Datedeb.Value = Left(Datedeb.Value, Len(Datedeb.Value) - 1)
Select Case Len(Datedeb.Value)
Case 2
If Not (Right(Datedeb.Value, 1) = "/") Then
Datedeb.Value = Datedeb.Value & "/"
End If
Case 5
If Not (Right(Datedeb.Value, 1) = "/") And Not (Mid(Datedeb.Value, 4, 1) = "/") Then
Datedeb.Value = Datedeb.Value & "/"
End If
Case Else
End Select
End Sub