Manipulation date du jour VBA - DTPicker

thesentry Messages postés 1014 Date d'inscription   Statut Membre Dernière intervention   -  
indox Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai besoin d'un truc tout bête mais je ne trouve pas la solution.

A l'exécution de mon userform, j'ai un DTPicker, qui affiche la date du jour par défaut.
Juste en dessous, j'ai un CommandButton.

Je souhaiterai que si l'utilisateur n'a pas saisie une date postérieur à la date du jour (et uniquement postérieur) dans la DTPicker, lorsqu'il clique sur le CommandButton, une message box s'ouvre avec le message suivant "Merci de saisir une date postérieur à la date d'aujourd'hui".

J'avais eu comme idée :

Private Sub CommandButton1_click () 

If DTPicker1.Value <= Now Then
MsgBox("Merci de saisir une date postérieur à la date d'aujourd'hui")
Else
End If

End Sub

Mais ça ne fonctionne pas, ou du moins, je n'ai pas ce que je veux.

Une idée ?

Merci
A voir également:

1 réponse

indox Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Voici la solution:

Private Sub CommandButton1_Click()
If DTPicker1.Value <= Date Then
MsgBox ("Merci de saisir une date postérieur à la date d'aujourd'hui")
End If
End Sub
0