Bonjour à tous,
J'ai un petit code qui me permet de savoir quel jour de la semaine correspond une date saisie dans une textbox.
Cela me pose un soucis lorsque l'utilisateur saisie une date avant le 01/01/1900 et pour cause.
J'aimerais donc que si l'utilisateur saisie une date antérieure au 01/01/1900, un message apparaisse lorsqu'on quitte la textbox1.
J'ai tenté ça mais sans résultat.
Si la date est postérieure au 01/01/1900 cela fonctionne bien, sinon j'ai un bug avec un message d'erreur 1004 défininis par l'application ou par l'objet.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
         If IsDate(TextBox1) < "01/01/1900" Then
        MauvaisFormatDate.Show
       Else
    End If
 
End Sub
Quelqu'un pourrait-il m'aiguiller sur les dates car je n'en suis pas très au fait.
Merci par avance
Laurent