Macro date cellule différente date du jour

[NFlantier]

Bonjour,

Je suis grand débutant dans le VBA et je suis confronté à un problème que je n'ai pas réussi à résoudre en recherchant sur le forum.

Je souhaiterai qu'un MsgBox affiche "La date saisie ne correspond pas à la date du jour" si je tape une date différente de la date du jour dans une cellule.

Voici mon code, pouvez vous m'indiquer ce qui ne va pas :

Private Sub MessageErreur()
If [RapportNom].Value<>Date Then
MsgBox "La date saisie ne correspond pas à la date du jour !"
End If
End Sub

Je vous remercie par avance.

 

[robertjamin]

Re : Macro date cellule différente date du jour

Bonjour,
Si [RapportNom] contient bien une date alors ça doit fonctionner. A condition toutefois que la Sub soit lancée par une action quelconque.
Si le contrôles doit se faire sur le changement de la date de RapportNom alors il faut mettre le code dans l'évènement Change de la feuille de travail.
Clic droit sur l'onglet de la feuille et clic sur Visualiser le code

 

[camarchepas]

Re : Macro date cellule différente date du jour

Bonjour à tous ,

Bon , la fléme de déclarer un champ nommé , et pas de fichier démo ,
donc depuis une date qui serait en A1

Private Sub MessageErreur()
Dim RapportNom As String
RapportNom =cdate(range("A1"))
If RapportNom <> Date Then
MsgBox "La date saisie ne correspond pas à la date du jour !"
End If
End Sub

 

[NFlantier]

Re : Macro date cellule différente date du jour

Merci à tous,

J'ai testé la procédure de camarchepas mais je n'arrive pas à la faire fonctionner.

Pouvez-vous m'aider svp ?

Je vous joins un fichier test en PJ

Merci par avance

 

[camarchepas]

Re : Macro date cellule différente date du jour

Bonjouir ,

Voici intégré comme tu souhaites je crois .

J'ai en plus ajouté un repositionnement sur la cellule en défaut pour obliger la correction

 

[robertjamin]

Re : Macro date cellule différente date du jour

Message supprimé

 

[NFlantier]

Re : Macro date cellule différente date du jour

Parfait,

Merci camarchepas

Merci à tous

Bonne journée