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
Partager