Creer une alerte sur Excel

Version imprimable

12/11/2016, 18h13
pol70

1 pièce(s) jointe(s)

Creer une alerte sur Excel

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

Bonsoir,

Modifie peut-être la macro "rappel" :

Code:

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

13/11/2016, 12h04
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 ?
13/11/2016, 12h45
Daniel.C

Oups :

Code:

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

au lieu de :

Code:

If Trim("" & msgRAPPEL) <> "" And Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" Then
13/11/2016, 14h01
pol70

désolé , résultat identique ....la macro ne prend pas en compte la condition / col J ...????
13/11/2016, 15h28
Daniel.C

Je maintiens :

Code:

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

Quelle ligne ne correspond pas ?
13/11/2016, 16h38
pol70

les lignes dont la cellule col J est renseignée comme CLOTURE, sont prises en compte , alors que je n'ai besoin que des RAPPEL et ECHU , d'où la condition <> "CLOTURE" , espérée fonctionnelle.

ci-dessous un extrait du tableau reçu envoyé par mail

n°CP nomcopro sujet action famille échéance alerte
18 1 RUE GENOUX TRUCCHOSE 11 CCCCCCCCCCCCCC Sinistre 01/11/2016 ECHU
12 CLOS TOUR 1 TRUCCHOSE 1 AAAAAAAAAAAAAAAA Sinistre 09/11/2016 CLOTURE <= je veux éviter d'envoyer ces lignes
20 25 R. ST GEORGES TRUCCHOSE 2 BBBBBBBBBBBBBBBBBB AG 10/11/2016 ECHU
etc....

merci

Peut-être alors comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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 And Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" 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) <> "" Then
    msgRAPPEL = "<table border='1' cellspacing='0'  width='100%'>" & MessageTitre & msgRAPPEL & "</Table>"
    Debug.Print Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" & L
    Mail "RAPPEL ECHEANCES", msgRAPPEL, "aaaaaaa@orange.fr"
    End If
    End Sub

cette version rend la condition de sélection date inopérante : avec If DateValide(R(L, 9), Date, 6) = False , la macro ne sélectionne aucune ligne puisque condition date false.

??? Désolé de te compliquer ton WE avec mes Pbs
merci
Pol

Daniel ,

OK J'ai trouvé !!! La condition n'était pas sur la bonne ligne :

Code:

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 And Sheets("SUIVI ACTIONS").Cells(L, 10).Value <> "CLOTURE" 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 DateValide(R(L, 9), Date, 6) Then  
    msgRAPPEL = "<table border='1' cellspacing='0'  width='100%'>" & MessageTitre & msgRAPPEL & "</Table>"
    Mail "RAPPEL ECHEANCES", msgRAPPEL, "jeanpaul.fehner@orange.fr"
    End If
    End Sub

Merci et bonne fin de WE

13/11/2016, 19h38
Daniel.C

Je ne vois pas la différence, je dois avoir de la crotte plein les yeux ?
13/11/2016, 22h50
pol70

Il y a 2 conditions if DateValide, c'est sur la première qu'il fallait associer la 2eme conditions sur la col J , pas la deuxième sur l'emission du mail.
Et là , ça fonctionne top.
Merci de m'avoir consacré du temps.
Bye.
Pol70