message suite deux conditions

Version imprimable

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:

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

Bonjour,

Avec ce code ça devrait fonctionner:

Code:

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

29/08/2013, 18h36
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:

=($E2="Pas fait") * ($D2<AUJOURDHUI())
30/08/2013, 10h47
khalidabc

Merci

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

Merci encore une fois