Manipulation date du jour VBA - DTPicker

Fermé

thesentry Messages postés 874 Date d'inscription dimanche 31 janvier 2010 Statut Membre Dernière intervention 22 février 2020 - Modifié par thesentry le 7/03/2014 à 10:53
indox Messages postés 8 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 1 mai 2014 - 24 mars 2014 à 15:50

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:

Manipulation date du jour VBA - DTPicker
Mettre à jour ses pilotes - Guide
Mise a jour airpods - Guide
Mise à jour x96 mini ✓ - Forum Accessoires & objets connectés
Nous n'avons pas pu terminer les mises à jour - Forum Windows 10
Mise a jour windows 10 - Guide

1 réponse

Réponse 1 / 1

indox Messages postés 8 Date d'inscription lundi 24 mars 2014 Statut Membre Dernière intervention 1 mai 2014
24 mars 2014 à 15:50

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

Discussions similaires

Prélèvement JM Jacquie et Michel date.

Problème Whatsapp - "La date est incorrecte"

Pix

Table des matières dont les titres n'apparaissent pas..

VBA : Range avec références variables..

Discussions similaires

Newsletters