Sub ValidationDate(dat As Object, Valide As Boolean)
Dim reponse As Variant
Dim LaDate As String
'
Select Case Len(dat.Value)
Case 1
If CLng(dat.Value) > 3 Then
reponse = MsgBox("Le jour ne peut pas commencer par " & dat.Value, vbOKOnly, "Erreur de saisie")
dat.Value = ""
Exit Sub
End If
Case 2
If CLng(dat.Value) > 31 Then
reponse = MsgBox("Le mois ne peut avoir plus de 31 jours", vbOKOnly, "Erreur de saisie")
dat.Value = Left(dat.Value, 1)
Exit Sub
Else
dat.Value = dat.Value & "/"
End If
Case 4
If Right(dat.Value, 1) > 1 Then
reponse = MsgBox("L'année ne peut avoir plus de 12 mois", vbOKOnly, "Erreur de saisie")
dat.Value = Left(dat.Value, 3)
Exit Sub
End If
Case 5
If CLng(Right(dat.Value, 2)) > 12 Then
reponse = MsgBox("L'année ne peut avoir plus de 12 mois", vbOKOnly, "Erreur de saisie")
dat.Value = Left(dat.Value, 4)
Exit Sub
Else
dat.Value = dat.Value & "/20"
End If
Case 10
If Not IsDate(dat.Value) Then
reponse = MsgBox("Le " & dat.Value & " n'existe pas ", vbOKOnly, "Erreur de saisie")
dat.Value = ""
Exit Sub
End If
Valide = True
End Select
End Sub