Rech aide pour text dans TextBox avec macro

Bonjour à tous,

je voudrais faire écrire à partir d'une macro lancée par un bouton dans un textbox un text qui contiendrai des infos prisent dans des cellules d'une feuille excel. le reste du texte serait déjà rédigé dans la macro.

Je donne un exemple :

A1 = 10
A2 = 15
A3 = 66

Lorsque je clique sur un bouton, il faudrait qu'un Userform contenant un textbox s'ouvre et indique par exemple le texte suivant (les valeurs dans le texte étant prisent dans les cellules indiquées ci dessus. Les -------- sont là juste pour délimiter l'exemple)

---------------------------
Bonjour,

vous avez commandé :
10 kilos de pommes de terre
15 kilos de tomates
66 kilos de haricots

je vous remercie de votre commande.
-------------------------

mais là ou ça peux se compliquer c'est si une valeur est égale à 0, la ligne ne doit pas être indiquée

exemple :

A1 = 10
A2 = 0
A3 = 66

---------------------------
Bonjour,

vous avez commandé :
10 kilos de pommes de terre
66 kilos de haricots

je vous remercie de votre commande.
-------------------------

quelqu'un saurait il comment rédiger le VBA pour que cela fonctionne?

Merci de votre aide.

Shaki.

Bonjour,

Ci dessous un code qui permet de faire ce que tu souhaites
Ne pas oublier de mettre la propriété Multiline de la textbox à True

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim i As Long   i = 1   TextBox1.Text = "Bonjour," & Chr(13) & Chr(13) & "vous avez commandé :" & Chr(13)   'Boucle sur les données Do While Sheets("Feuil1").Range("A" & i).Value <> "" 'Vérifie si Nb kilos > 0 If Range("A" & i).Value > 0 Then   TextBox1.Text = TextBox1.Text & Range("A" & i).Value & " kilos de " & Range("B" & i).Value & Chr(13)   End If   i = i + 1 Loop   TextBox1.Text = TextBox1.Text & Chr(13) & "je vous remercie de votre commande."

---

Bon courage

Merci Jérôme c'est parfait!

Vais pouvoir avancer avec ça.

Bonne journée à toi.

Sébastien