Bonjour a tous,
Voila j'ai besoin de faire une boucle pour concaténer avec une condition IF a l'intérieur et envoyer un mail du résultat.
j'ai besoin de faire plusieurs condition IF (similaire a ci-dessous) avec une variable liste qui se réinitialise différemment avant chaque if (les valeurs de liste en dur dans une cellule excel)
dans le corps du mail il faut envoyer le résultat du toutes les conditions IF
le code utilisé est le suivant :
If Range("C6").Value > 0 Then
ii = 8
derniere_ligne = Worksheets("Donnees").Range("C65000").End(xlUp).Ro w
For ii = 8 To 65000
liste = Worksheets("Donnees").Range("K6").Value
If (Cells(ii, 5) <> "" And Cells(ii, 3) = 1) Then liste = liste & a & Cells(ii, 5)
a = Chr(10)
liste = Worksheets("Donnees").Range("K7").Value
If (Cells(ii, 7) <> "" And Cells(ii, 3) = 1) Then liste = liste & a & Cells(ii, 7)
a = Chr(10)
.+ de condition if
.
.
.
Range("G9") = liste ' mettre le résultat de liste dans G9
Call envoi_Tech ' pour envoi mail
.
.
.
.
Ebody = Worksheets("Donnees").Range("G9").Value
Si vous pouvez m'aider???
Voila j'ai besoin de faire une boucle pour concaténer avec une condition IF a l'intérieur et envoyer un mail du résultat.
j'ai besoin de faire plusieurs condition IF (similaire a ci-dessous) avec une variable liste qui se réinitialise différemment avant chaque if (les valeurs de liste en dur dans une cellule excel)
dans le corps du mail il faut envoyer le résultat du toutes les conditions IF
le code utilisé est le suivant :
If Range("C6").Value > 0 Then
ii = 8
derniere_ligne = Worksheets("Donnees").Range("C65000").End(xlUp).Ro w
For ii = 8 To 65000
liste = Worksheets("Donnees").Range("K6").Value
If (Cells(ii, 5) <> "" And Cells(ii, 3) = 1) Then liste = liste & a & Cells(ii, 5)
a = Chr(10)
liste = Worksheets("Donnees").Range("K7").Value
If (Cells(ii, 7) <> "" And Cells(ii, 3) = 1) Then liste = liste & a & Cells(ii, 7)
a = Chr(10)
.+ de condition if
.
.
.
Range("G9") = liste ' mettre le résultat de liste dans G9
Call envoi_Tech ' pour envoi mail
.
.
.
.
Ebody = Worksheets("Donnees").Range("G9").Value
Si vous pouvez m'aider???