Alerte date d'Echéance VBA

Bonjour/Bonsoir tout le monde,

En fait je doit gérer des dates d'échéance, du coup ces dates étant nombreux, j'aimerai avoir un message d'alerte qui me prévient de l'approche ou de l'arrivée de la date d'échéance. Est ce que c'est possible d'avoir un macro excel qui permet de faire cela?
Merci d'avance

Bonjour,

Avant de développer une macro, essayez avec des mises en forme conditionnelles. En fonction de l'échéance, les cellules s'afficheront en Vert, Orange, Rouge par exemple en fonction des critères que vous aurez définis.

Ensuite, vous aurez la possibilité de filtrer par couleur les lignes dont l'échéance est critique.

Cordialement.

oui j'y ai pensé mais j'ai aucune idée sur un mise en forme conditionnelle qui permettrai de comparer la date du jour a la date d'échéance inscrite sur une feuille excel pour pouvoir la mettre en rouge vert ou jaune. si vous avez une idée de cela je veux bien
merci

Bonjour,

Il faut déjà essayer à partir des messages sur ce forum, il y en a des tonnes...

Pour cela, en haut à droite de l'écran, vous avez un champ Google Recherche personnalisée. En tapant MFC couleurs Excel, vous aurez accès aux messages traitant ce sujet.

Cordialement.

Bonjour,

tu rajoute la date actuelle en A1 par exemple formule =Aujourdhui()

et ensuite tu ajoute à ta plage 3 règles de mise en forme conditionnelle

du genre

Code:

---

=($A$1+2)>$A5

---

qui est vérifié si la date actuelle + 2 jours et supérieure à la date d'échéance placé en cellule A5 ...


http://bbil.developpez.com/images/forum/MFC_DATES.JPG

je vous remercie mon problème est réglé.

ah désolé mon probléme n'est pas vraiment réglé. En fait avec le code (ci-joint) il continue à me signaler les dates passées depuis longtemps. Moi je voudrais qu'il arrête de m'alerter sur les date d'échéance passé depuis il y'a 2 jours par exemple, ou que dans le msgbox qui s'affiche, quand j'appuie oui, qu'il arrete de m'alerter sur cette date et que si j'apppuis sur qu'il continue à m'alerter.
Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

'feuille excel client1 07/05/2013 client2 03/05/2013 client3 12/05/2013     Sub auto_open()   'Pour chaque date de la colonne B For Each cellule In Range("B:B")   'Si une date est inférieur ou égale à aujourd'hui +3 jours alors affiche le texte de la cellule correspondante en colonne A If cellule <= Date + 3 And cellule <> "" Then MsgBox (cellule.Offset(0, -1).Value)   Next   End Sub

---

Bonjour,

Il suffit d'ajouter une troisième condition à votre test

Code:

---

And cellule > Date - 2

---

.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'feuille excel client1 07/05/2013 client2 03/05/2013 client3 12/05/2013     Sub auto_open()   'Pour chaque date de la colonne B For Each cellule In Range("B:B")   'Si une date est inférieur ou égale à aujourd'hui +3 jours alors affiche le texte de la cellule correspondante en colonne A If cellule <= Date + 3 And cellule > Date - 2 And cellule <> "" Then MsgBox (cellule.Offset(0, -1).Value)   Next     End Sub

---

Cordialement.