Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro date cellule différente date du jour

  • Initiateur de la discussion Initiateur de la discussion NFlantier
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

NFlantier

XLDnaute Nouveau
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.
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
171
Réponses
10
Affichages
262
  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
106
Réponses
3
Affichages
152
Réponses
6
Affichages
310
Réponses
2
Affichages
162
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…