MESSAGE SI DATE ÉCHÉANCE SAUF SI

Bonjour Le Forum

J'ai une macro qui m'affiche un message si la date d'échéance est <= a 30 jours.est passer.

mais je voudrais que si la colonne date de règlement est rempli alors pas de message.

Merci de votre aide.

capture
29echeance.xlsm (16.73 Ko)

Bonjour

Un essai à tester. Te convient-il ?

Bye !

31echeance-v1.xlsm (20.89 Ko)

Bonjour et Merci gmb

C'est parfait.

Une variante qui permet d'avoir dans un même message tous les retards de réglements...

Bye !

26echeance-v2.xlsm (22.09 Ko)

Re bonjour

J'ai essayer la variante mais elle me plante excel (ça tourne en continu).

et avec la première il y a un souci elle ne s’arrête pas et je suis obliger de faire un Ctrl+Alt +SUPPR et je vois pas ou est l'erreur?.

Merci de votre aide.

si joint mon fichier original

Nouvel essai.

Mais j'ai des choses bizarres dues aux autres macros ...

Bye !

rebonjour

c'est super toutefois j'ai une dernière question

le message s'affiche meme si je n'est pas de facture comment faire pour eviter cela

je pensais faire un truc du genre

If cel.Value ="" then
exit sub 

mais cela ne fonctionne pas .

Merci de votre aide.

Bonjour

C'est presque ça.

Private Sub Workbook_Open()

    Sheets("SUIVI CLIENTS FACTURE").Select
    mess = "": cpt = 0
    For Each cel In Range("q2:q" & Application.Max(2, Range("q" & Rows.Count).End(xlUp).Row))
        If cel.Value + 30 <= Date And cel.Offset(0, 2) = "" And cel.Value <> ""Then
...

OK ?

Bye !

super Merci

Rechercher des sujets similaires à "message date echeance sauf"