Affichage message d'alerte bis

Bonjour,
Avec les dates en colonne D.
Avec une alerte visuelle par la Mise en forme cond..
Condition 1
La Formule est: Ò>AUJOURDHUI()+5
Format etc...
Pour une approche de 5 jours

Pour un message d'alerte + visuelle en vba alors ceci:
'----------
Sub jj()
approche = 5
derlg = Range("d65536").End(3).Row
For Each c In Range("d2:d" & derlg)
c.Interior.ColorIndex = xlNone
If Date + approche = c Then
c.Interior.ColorIndex = 3
MsgBox "La date en: " & c.Address & " arrive à échéance dans " & approche
& " jours"
End If
Next
End Sub
'------------
'Ps:Approche = 5 pour 5 jours. A adapter

Salutations
JJ


"Chris62" <news@news.fr> a écrit dans le message de
news:diobkc$nqn$1@s1.news.oleane.net...

Rebonjour,
Le tableau est réparti en plusieurs sur une feuille Excel :
Désignation - Lieu d'affectation - Numéro de téléphone - Date d'échéance
Donc, j'aurais aimé testé la colonne Date d'échéance en lui demandant
d'afficher un message d'alerte quand la date approche de l'échéance
Encore merci
Christèle

Bonjour Christèle,

Pour ce qui est de déclencher un message d'alerte, cela semble difficile... mais tu pourrais utiliser une mise en forme
conditionnelle qui modifierais le format (couleur de fond ou du texte) de la cellule ou de la ligne dès que la date d'échéance se
retrouve à l'intérieur d'un certain écart.

Tu retrouveras sur http://www.excelabo.net/ un classeur de AV sur les mises en forme conditionnelle que tu peux télécharger.


Salutations!


"Chris62" <news@news.fr> a écrit dans le message de news: diobkc$nqn$1@s1.news.oleane.net...
Rebonjour,
Le tableau est réparti en plusieurs sur une feuille Excel :
Désignation - Lieu d'affectation - Numéro de téléphone - Date d'échéance
Donc, j'aurais aimé testé la colonne Date d'échéance en lui demandant
d'afficher un message d'alerte quand la date approche de l'échéance
Encore merci
Christèle

Re...
Une 'petite' ;o) erreur s'est glissée dans mon code
Remplace cette ligne
If Date + approche = c Then
par celle-ci
If c >= Date + approche Then

Excuse
JJ

Re..
Et dans la foulée celle-ci aussi

MsgBox "La date en: " & c.Address & " arrive à échéance dans " &
approche

par celle-la
MsgBox "La date en: " & c.Address & " arrive à échéance dans " & c - Date &
" jours"

JJ

"Jacky" <nospam@bidon.fr> a écrit dans le message de
news:ea5UU8M0FHA.3180@TK2MSFTNGP14.phx.gbl...

Bonjour,
Avec les dates en colonne D.
Avec une alerte visuelle par la Mise en forme cond..
Condition 1
La Formule est: Ò>AUJOURDHUI()+5
Format etc...
Pour une approche de 5 jours

Pour un message d'alerte + visuelle en vba alors ceci:
'----------
Sub jj()
approche = 5
derlg = Range("d65536").End(3).Row
For Each c In Range("d2:d" & derlg)
c.Interior.ColorIndex = xlNone
If Date + approche = c Then
c.Interior.ColorIndex = 3
MsgBox "La date en: " & c.Address & " arrive à échéance dans " &
approche

& " jours"
End If
Next
End Sub
'------------
'Ps:Approche = 5 pour 5 jours. A adapter

Salutations
JJ


"Chris62" <news@news.fr> a écrit dans le message de
news:diobkc$nqn$1@s1.news.oleane.net...

Rebonjour,
Le tableau est réparti en plusieurs sur une feuille Excel :
Désignation - Lieu d'affectation - Numéro de téléphone - Date d'échéance
Donc, j'aurais aimé testé la colonne Date d'échéance en lui demandant
d'afficher un message d'alerte quand la date approche de l'échéance
Encore merci
Christèle

ok merci beaucoup pour les renseignements.
A bientôt. Christèle

"Chris62" <news@news.fr> a écrit dans le message de news:
diobkc$nqn$1@s1.news.oleane.net...

Rebonjour,
Le tableau est réparti en plusieurs sur une feuille Excel :
Désignation - Lieu d'affectation - Numéro de téléphone - Date d'échéance
Donc, j'aurais aimé testé la colonne Date d'échéance en lui demandant
d'afficher un message d'alerte quand la date approche de l'échéance
Encore merci
Christèle