Avertissement selon critères

[Imer2007]

Bonjour à tous,

J'ai un tableau dans lequel j'ai une date butoir à ne pas dépasser et un état (terminé, plannifié, en attente, etc.)
Petite question qui me tarabuste, je suis arrivé à créer une pop-up d'avertissement en fonction du dépassement de la date butoir.

J'ai récupéré un bout de code pour le message d'avertissement mais je n'arrive pas à intégrer les valeurs de l'état.

En gros je voudrais que le message d'avertissement s'affiche si la date butoir est dépassée, mais ne s'affiche pas si mon état est terminé ou annulé.

Private Sub workbook_open()
    Dim Dt As Range
    Dim Ws As Worksheet
 
    Set Ws = Worksheets("Charge de projet")
 
    For Each Dt In Ws.Range("j8:j" & Ws.Range("j65536").End(xlUp).Row)
           If Dt < Date And Dt <> "" Then _
            MsgBox "Attention ! Date butoir dépassée pour " & Dt.Offset(0, -6) & " '" & _
            Dt & "'", _
            vbExclamation, " message d'alerte "
    Next Dt
 
End Sub

http://img20.imageshack.us/my.php?image=pasdenomyt1.jpg

 

[tototiti2008]

Re : Avertissement selon critères

Bonjour Imer,

Et où écris-tu Annulé ou Terminé ?

 

[Imer2007]

Re : Avertissement selon critères

Bonjour Tototiti,

Comme je l'ai dit, le code vb que j'ai ne prend en compte que la colonne J de la date butoir en J8 (dans l'exemple 06/05/2008). J'aimerais qu'elle prenne en compte le contenu de ma colonne L, là où est écrit (avec une liste de validation), annulé, terminé, en projet, en attente, etc.

 

[tototiti2008]

Re : Avertissement selon critères

Désolé, ma boule de cristal étant un peu floue, j'avais du mal à voir que ça se trouvait en colonne L...

essaye ça :

Private Sub workbook_open()
    Dim Dt As Range
    Dim Ws As Worksheet
 
    Set Ws = Worksheets("Charge de projet")
 
    For Each Dt In Ws.Range("j8:j" & Ws.Range("j65536").End(xlUp).Row)
           If Dt < Date And Dt <> "" and Dt.offset(0,2)<>"annulé" and _ 
 Dt.offset(0,2)<>"terminé" Then _
            MsgBox "Attention ! Date butoir dépassée pour " & Dt.Offset(0, -6) & " '" & _
            Dt & "'", _
            vbExclamation, " message d'alerte "
    Next Dt
 
End Sub

 

[Imer2007]

Re : Avertissement selon critères

Nickel ! Merci !

Y a toujours une solution ici, c'est cool. 😀