Discussion :

[pol70]

brj ,

J'ai lu cette discussion.

utilisé un modèle de XDURUPT pour macro envoi mail , mais je souhaite ajouter une condition supplémentaire pour ne pas prendre en compte les lignes dont l'échéance est "CLOTURE" en colonne J et je rame ....pas pro du VBA

qui a-t-il qqes mn à consacrer à mon sujet ?

merci

[Daniel.C]

Bonsoir,

Modifie peut-être la macro "rappel" :

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
Sub rappel()
Dim Sh As Worksheet
Dim R As Range
Dim L As Long
Dim msgRAPPEL As String
msgRAPPEL = ""
Set R = ActiveSheet.UsedRange
For L = 12 To R.Rows.Count
    If DateValide(R(L, 9), Date, 6) = False Then
    msgRAPPEL = msgRAPPEL & Message(R(L, 1), R(L, 2), R(L, 6), R(L, 7), R(L, 8), R(L, 9), R(L, 10))
    End If
    Next
If Trim("" & msgRAPPEL) <> "" And Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" Then
    msgRAPPEL = "<table border='1' cellspacing='0'  width='100%'>" & MessageTitre & msgRAPPEL & "</Table>"
    Mail "RAPPEL ECHEANCES", msgRAPPEL, "aaaaaaa@orange.fr"
End If
End Sub

[pol70]

merci Daniel

configuration déjà testée , les lignes "CLOTURE" sont qd même envoyées dans le tableau ..... d'où mon appel à l'aide .

ne faut-il pas déclarer préalablement le contenu de la col 10 comme variable ?

[Daniel.C]

Oups :

Code :

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

If Trim("" & msgRAPPEL) <> "" or Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" Then

au lieu de :

Code :

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

If Trim("" & msgRAPPEL) <> "" And Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" Then

[pol70]

désolé , résultat identique ....la macro ne prend pas en compte la condition / col J ...????

[Daniel.C]

Je maintiens :

Code :

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

If Trim("" & msgRAPPEL) <> "" And Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" Then

Quelle ligne ne correspond pas ?