XL 2016 Macro Envoi Mail avec condition

[xamenod]

Bonjour,
J'ai crée une macro qui envoi des mails avec les informations nécessaires dans les en-têtes d'expédition. Pas de soucis lorsqu'il n'y a qu'une valeur (ex .to = range("C4").value)
Cela se complique lorsqu'il y a un tableau remontant des valeurs 0. Pour le moment j'ai écrit :

myitem.cc = Range("D4").Value & ";" & Range("E4").Value & ";" & Range("C5").Value _
& ";" & Range("D5").Value & ";" & Range("E5").Value & ";" & Range("C6").Value & ";" & Range("D6").Value _
& ";" & Range("E6").Value

Mais lorsqu'une cellule est vide l'adresse remontée dans myitemcc est 0. Ex. jean@mail.fr;0;pierre@mail.fr

J'ai essayé de créer, sans succès une boucle pour ne pas prendre en compte ces cellules avec un 0 et concatener les valeurs pour les écrire dans le mail créé.
J'espère avoir été clair dans mes explications.
Merci pour votre aide
Henry.

 

[fanch55]

Bonjour,
Utilisez plutôt .Text que .Value pour votre myitem.cc

Sinon si vous préférez construire la liste :

CC = ""
For Each Cell In Sheets("DEVIS").Range("D4, E4,C5:E6")
    If Cell.Text <> "" _
    Then CC = IIf(CC = "", "", CC & ";") & Cell.Text
Next
myitem.CC = CC

 

[xamenod]

Bonjour Fanch55, cela fonctionne parfaitement. Merci à vous. Bonne journée.