Bonjour,
Au lieu de isError
l'on met isdate
et il n'y a plus de 30 février
ou de 29 févier 1999.
Sub verif()
If Not IsDate(DateAMJ(TextBox10, TextBox9, TextBox8)) Then
TextBox8.BackColor = &HFFC0FF
TextBox9.BackColor = &HFFC0FF
TextBox10.BackColor = &HFFC0FF
Else
TextBox8.BackColor = &H80000005
TextBox9.BackColor = &H80000005
TextBox10.BackColor = &H80000005
End If
End Sub
ric