Création d'une alerte

[kbjh]

Bonsoir,
Pouvez vous m'aider svp à créer une alerte pour mon document excel??
il s'agit d'une liste des tâches, je voudrai afficher un message dans une boite de msg une fois j'ouvre mon document.
Vous pouvez voir les détails dans le fichier joint.

Et merci énnormément pour votre aide.

 

[skoobi]

Re : Création d'une alerte

Bonsoir,

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

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

 

[wilfried_42]

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

 

[kbjh]

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 🙂

 

[wilfried_42]

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

 

[kbjh]

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

 

[wilfried_42]

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

 

[abc]

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 +

 

[kbjh]

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

 

[wilfried_42]

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

re:

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

 

[kbjh]

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!