Discussion :

[shaki]

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.

[jfontaine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[shaki]

Merci Jérôme c'est parfait!

Vais pouvoir avancer avec ça.

Bonne journée à toi.

Sébastien