Bonjour,

Je suis un grand novice en VBA et je voudrais avoir votre aide svp.

alors j'ai un fichier dans lequel j'ai des taches qui doivent etre faites a des dates précises, et voudrais me créer des alertes quand ces taches ne sont pas faites on time.

j'ai quelques chose qui ressemble à ça

Colonne A : tache
Colonne E : menu déroulant, l'utilisateur choisit entre FAIT ou PAS FAIT
Colonne D : deadline

je voudrais avoir un message, qui me dit quand j'ouvre le fichier que la tache X de la date Y n'a pas été faite alors que la deadline est passée.

pour le moment, j'ai fait la condition sur la date, il me reste de vérifier si la tache a été faite ou pas.

en fait je veux commencer par vérifier si la tache a été faite ou pas, quand elle est faite c'est bon, sinon je regarde la date, si elle est pas faite et en retard alors a ce moment j'affiche le message.

voila ou j'en suis pour le moment.

j'espère avoir été clair.

merci d'avance

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
Private Sub Workbook_Open()
Dim Cel As Range, X As Long, Msg As String, Cel1 As Range ',Y As Long,
 
X = Cells(Rows.Count, "D").End(xlUp).Row
X = IIf(X < 1, 1, X)
 
            For Each Cel In Range([D1], Cells(X, "D"))
                    If Cel < DateSerial(Year(Date), Month(Date), Day(Date)) Then
 
            Msg = Msg & " Attention à la tache de la ligne " & Cel.Row & " , prévue pour le " & Cel & " " & Cel.Offset(0, -2) & Chr(13)
 
        End If
 
           Next Cel
 
 
    If Msg <> "" Then MsgBox Msg
 
End Sub