Discussion :

[pasterlouis]

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

[Invité]

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.

[pasterlouis]

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

[Invité]

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.

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=($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 ...

[pasterlouis]

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

[pasterlouis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

And cellule > Date - 2

.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.