macro et msgbox

[Bérengère]

Bonjour le forum,
J'ai réussi, grâce à ce que j'ai trouvé sur le forum, à faire une macro qui se déclenche à l'ouverture du classeur et qui m'affiche un msgbox si la date d'échéance est dépassée (voir fichier joint).
Je souhaiterais améliorer cette macro, c'est-à-dire que si la date de réglement est renseignée, que le msgbox ne s'affiche plus au démarrage. En fait la macro doit fonctionner que si la date d'échéance est dépassée et si la facture n'est pas réglée.
Merci de votre aide.
Bérengère

 

[jp14]

Re : macro et msgbox

Bonjour

Ci dessous la ligne de code à modifier

  If c.Value < Date And c.Value > 0 [COLOR="Red"]And c.Offset(0, 2) = "" [/COLOR]Then

JP

 

[tototiti2008]

Re : macro et msgbox

Bonjour Bérengère,

peut être en modifiant

If c.Value < Date And c.Value > 0 Then

comme ça :

If c.Value < Date And c.Value > 0 And c.Offset(0, 2).Value = "" Then

mais l'évènement à l'ouverture se déclenchera beaucoup mieux si on met le code dans Thisworkbook... 😉

Edit : Bing, bonjour jp14

 

[Bérengère]

Re : macro et msgbox

Bonjour jp14 et tototiti2008,
Ca marche, c'est impeccable! Encore merci.
Bérengère