Souci après remise à zéro

[mig_59]

Bonjour à tous le forum

Petit souci de remise à zéro
Je dois comparer 2 dates celle du jour avec celle saisie en "B6"

Si la saisie est antérieur à la date du jour alors msgbox
Jusque la tout est OK

En revanche, si je fais une remise à zéro de la cellule "B6" par l'intermediare du bouton "raz" ben il m'affiche la msgbox
Comment peut-on gérer le souci ?
Je joins le fichier xlsm

Merci pour votre aide
Cordialement

 

[Caillou]

Re : Souci après remise à zéro

Bonjour,

Modifies la condition comme ceci par exemple :

If Range("B6") <> "" And Date > Range("B6") Then

Caillou

 

[mikachu]

Re : Souci après remise à zéro

Bonjour,

Voilà, je l'ai modifié.

J'en ai profité pour modifier la macro afin que le message apparaisse uniquement si la case modifiée est la case B6

 

[Kobaya]

Re : Souci après remise à zéro

Bonjour mig_59,

Après le RAZ, la date sera obligatoirement supérieure au contenu de la cellule vide. Donc, si tu remplaces

If Date > Range("B6") Then

par

If Date > Range("B6") And Range("B6").Value <> "" Then

ça devrait fonctionner.

 

[mig_59]

Re : Souci après remise à zéro

Bonjour Caillou & mikachu

Merci pour vos réponses et pour votre rapidité

Cordialement