Création d'une alerte

skoobi

XLDnaute Barbatruc

• 2 Décembre 2007

• #2

Re : Création d'une alerte

Bonsoir,

voici un code qui est à mettre dans ThisWorkbook" et non dans "Feuil1":

Code:

Private Sub Workbook_Open()
Dim trouve As Boolean
Dim c As Range
Dim liste As New Collection
For Each c In Sheets("Feuil1").Range("G3:G" & Sheets("Feuil1").Range("G65536").End(xlUp).Row)
    If c.Value = Date - 2 Then
        liste.Add c.Offset(0, -6).Value
        trouve = True
    End If
Next c
If trouve Then
    msg = "la tâche >>   "
    For n = 1 To liste.Count
        msg = msg & liste(n) & ","
    Next
    MsgBox msg & " est en retard."
End If

End Sub

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 2 Décembre 2007

• #3

Re : Création d'une alerte

bonsoir

nous somme maintenant le 2 decembre, pour voir si demain arrivera à echeance, j'ai modifié 2 dates

la macro que tu as copié, tu la mise dans le module Worksheet (Feuil1) or cette macro est une evennementielle qui se lance à l'ouverture du classeur

Workbook_open

Elle doit etre placée dans le module ThisWorkbook

de plus, si tu veux tester si ta date sera demain, il faut mettre

if C.value = date +1 ---> date donne aujourdhui(), +1 donne demain

Ton fichier en retour, avec le message au lancement du classeur, et une MFC pour voir les taches arrivant à echeance le lendemain

ps: si tu ne travailles pas les dimanches, j'espere que demain ne sera jamais un lundi

 

Pièces jointes

• CAO(1).zip

  10.5 KB · Affichages: 71

Vote positif 0 Vote négatif

K

kbjh

XLDnaute Nouveau

• 2 Décembre 2007

• #4

Re : Création d'une alerte

Merci beaucoup! c'est ce que je voulais exactement!

Je suis en train de chercher maintenant, comment mettre lee lignes en couleur, quand çà remplie la condition.

Par exp, si le msg me dit que c'est les tâches 1 et 2 qui sont en retard, et ben mettre en couleur la ligne.

J'ai pensée à une simple mise en forme conditionnelle, seulement c pas évident pour moi
Merci de me donner un coup de main 🙂

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 2 Décembre 2007

• #5

Re : Création d'une alerte

re:

bonjour skoobi

dans le fichier que je t'ai envoyé, il es asscié à une MFC coditionnée à demain

tu ajoutes une mfc avec comme formule :

selectionne toute la plage

=(AUJOURDHUI()>$G3)

et choisis ta couleur

 

Dernière édition: 2 Décembre 2007

Vote positif 0 Vote négatif

K

kbjh

XLDnaute Nouveau

• 2 Décembre 2007

• #6

Re : Création d'une alerte

Re,
exuse moi wilfried, la condition que tu m'a donné, ne marche pas vraiment comme je voudrai,
Je t'explique : en fait je voudrai que (par exp pour la 1ère ligne) si la date prévue de la tâche n° 1 est inférieur à la date d'aujourd'hui de deux jours, que toute la ligne ( de n° à date réelle) se colorie en rouge par exp.
Donc si la date prévue est le 30 novembre, que la ligne se colorie.

Merci

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 2 Décembre 2007

• #7

Re : Création d'une alerte

re:

chez moi ca fonctionne, mais si tu cherche avec 2 jour d'ecart, il faut adapter

=(AUJOURDHUI()>($G3+1))

j'ai testé, ca fonctionne

 

Dernière édition: 2 Décembre 2007

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 2 Décembre 2007

• #8

Re : Création d'une alerte

Bonjour,
a essayer par rapport a la date
Donc MEFC
La formule est =G3-H1<2 puis format etc...
Même chose que wilfried_42 ,mais par un autre chemin
A +

 

Vote positif 0 Vote négatif

K

kbjh

XLDnaute Nouveau

• 2 Décembre 2007

• #9

Re : Création d'une alerte

La condition est bien claire! je pense que c'est de chez moi, même si je comprend pas vraiment pourquoi ca ne marche pas !
en fait quand je met cette condition, c'est seulement la colonne de la date prévue qui est correcte, sinon pour les autres colonnes c'est vraiment aléatoire!
Mais c'est pas grave, merci beaucoup
Bonne journée

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 2 Décembre 2007

• #10

Re : Création d'une alerte

kbjh à dit:

La condition est bien claire! je pense que c'est de chez moi, même si je comprend pas vraiment pourquoi ca ne marche pas !
en fait quand je met cette condition, c'est seulement la colonne de la date prévue qui est correcte, sinon pour les autres colonnes c'est vraiment aléatoire!
Mais c'est pas grave, merci beaucoup
Bonne journée

Cliquez pour agrandir...

re:

j'ai mis un $ devant le G pour figer le test à la colonne G

 

Vote positif 0 Vote négatif

K

kbjh

XLDnaute Nouveau

• 2 Décembre 2007

• #11

Re : Création d'une alerte

C'est bon çà marche! je sais pas ce qui s'est passé, j'ai enlevé ce que tu m'as dit pour figer, puis j'ai remis et çà a marché!
Super! Je te remercie énnormément!

 

Vote positif 0 Vote négatif