Date superieur à date du jour

Bonjour à tous

Pouvez vous m'aider je voudrai un message d'erreur quand la date saisie dans ma textbox est supérieur à la date du jour.

Voici le code

Private Sub TextBox1_Change()

'Date achat

Dim Valeur As Byte

TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox

Valeur = Len(TextBox1)

If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"

End Sub

En vous remerciant et bonne année

orguyrine

Bonjour orguyrine

Private Sub TextBox1_AfterUpdate()
If CDate(TextBox1.Value) > Now Then
        MsgBox "Date de début doit être Inférieure à la date du jour"
        Exit Sub
End If
End Sub

Bon courage

A +

Patty5046 a écrit :

Bonjour orguyrine

Private Sub TextBox1_AfterUpdate()
If CDate(TextBox1.Value) > Now Then
        MsgBox "Date de début doit être Inférieure à la date du jour"
        Exit Sub
End If
End Sub

Bon courage

A +

Merci de votre compréhension et de votre gentillesse

orguyrine

Re

tu as aussi la possibilité d'indiquer que tu as apprécié l'aide en cliquant sur le coeur ...en bas à droite ...

Bonne continuation et peut-être à bientôt ??