Discussion :

[khalidabc]

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

[Invité]

Bonjour,

Avec ce code ça devrait fonctionner:

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
20
21
22
23
Option Explicit
 
Private Sub Workbook_Open()
 
  Dim Cel As Range
  Dim X As Long
  Dim Msg As String
 
  X = Range("F" & Rows.Count).End(xlUp).Row
 
  For Each Cel In Range([D1], Cells(X, "F"))
 
    If IsDate(Cel.Value) Then
      If Cel < Date And Cel.Offset(0, -1).Value = "PAS FAIT" Then
        Msg = Msg & " Attention à la tache de la ligne " & Cel.Row & " , prévue pour le " & Cel & " " & Cel.Offset(0, -2) & Chr(13)
      End If
    End If
 
  Next Cel
 
  If Msg <> "" Then MsgBox Msg, vbOKOnly + vbInformation, "Message d'information"
 
End Sub

[Philippe Tulliez]

Bonjour,
Une autre solution sans VBA serait de mettre en évidence les lignes contenant les projets non terminés en appliquant une mise en forme conditionnelle.
La formule à placer dans la MFC après avoir sélectionné la plage des données et en supposant que les données commence en A2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=($E2="Pas fait") * ($D2<AUJOURDHUI())

[khalidabc]

Merci pour votre répnse, c'est exactement ce que je voulais.

Merci encore une fois