concatener avec plusieurs condition dans une boucle

[jebbayou]

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???

 

[jebbayou]

Re : concatener avec plusieurs condition dans une boucle

Bonjour,

Personne n'a de solution pour moi???

Merci d'avance