Renvoi a la ligne texte

Bonsoir a tous,

j'ai un question au sujet d'une variable qui va récupérer du texte dans une cellule

dans la cellule en question il est indiqué par exemple

'- texte 1
- texte 2
- texte 3

si je demande un message de conf avant lancement de la macro cela s'affiche correctement avec les retours à la ligne

  If MsgBox("Generate with the following activities?" & Chr(13) & Chr(10) & activities, vbYesNo, "Confirmation") = vbNo Then Exit Sub
  

Cependant lors de mon envoi de mail dans le htmlbody j'indique

"<b>1) Activité Majeure </b><br><br>" & activities & "<br><br>" & _

cela me renvoi - texte 1 - texte 2 - texte 3

comment puis je procéder afin que le retour à la ligne se fasse comme dans la cellule
on pourrait je pense indiquez que si - alors renvoi à la ligne avant mais est la façon optimale et comment faire cela?

Merci par avance

Bonjour toutes et tous

@tester

<br />

'.......& Chr(13) & ' .......

crdlt,

André

bonjour,

merci pour votre retour mais je ne suis pas sur de cerner

je récupère les valeurs textes comme ceci

activities = Worksheets("Internal").Range("E10")

si je tente un msgbox(activities) ca me donne bien les valeurs avec retour à la ligne comme dans la celulle

cependant si j'affiche ca dans le mail (htmlbody)

"1)  Activité Majeure <br>" & activities & _

ca me renvoi tout en ligne mais je ne peux rien indiquer comme caractères <br> ou autre

j'ai tenté une premiere approche

Larray = Split(activities, "-")

par contre ne connaissant pas d'avance le nombre à afficher

je fais

for i  = 0 to ubound(Larray)

Next

comment je fais désormais pour quand j'appelle Larray ca me renvoi tout

j'ai tenté

Larray = Larray + Larray(i)

ici ca m'affiche incompatible

Bonjour à tous,

@Darkangel Bonne initiative d'utiliser Split.

Tu es sur la bonne piste, tu y es presque, je te met sur la voie :

textehtml = Larray(0)

for i  = 1 to ubound(Larray)

textehtml =  .... 'Essaie de trouver la suite !

Next

Ensuite tu n'auras plus qu'à intégrer la variable textehtml dans ton bloc HTML !

Merci pour votre retour baboutz.

du coup j'ai procédé comme ceci:

Larray = Split(activities, "=>")

activity = Larray(0)
For i = 1 To UBound(Larray)

activity = Larray(i) & "<br>"
Next

mais quand j'affiche le tout avec activity dans le mail ca ne me renvoi que le dernier résultat...

lol j'ai trouvé:

  activity = activity & "<br>" & Larray(i)

merci à vous

Oui c'est ça ! Bravo Darkangel

Bonjour toutes et tous

Coucou Baboutz^^

Merci à vous, je viens d'apprendre un nouveau truc du coup ^^^

crdlt,

André

Salut André !

Avec plaisir, pas de soucis