Discussion :

[chartreuse]

Bonjour,

j'ai créé un Userform de recherche dont la réponse s'affiche dans une listbox.
J'ai crée un bouton pour envoyer un mail qui affiche la ListBox1 dans le corps du mail.
Mon problème est que la listbox ne s'affiche pas dans outlook.
Je pense q'il manque un bout de code ?

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
Sub CommandButton2_Click()
 
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim corps As String
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
  MonMessage.to = ""
  MonMessage.Subject = "Code magasin"
    corps = "Bonjour,"
    corps = corps & Chr(13) & Chr(10)
    corps = "Veuillez trouver ci-dessous les codes magasins que vous recherchez" & Chr(13) & Chr(10)
    corps = corps & recherche.ListBox1.Value
    corps = corps & Chr(13) & Chr(10)
 
  MonMessage.body = corps
  MonMessage.Display
  Set MonOutlook = Nothing
End Sub

[riaolle]

Bonjour,

Code :

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

ListBox1.Value

te renvoie la valeur sélectionnée dans la listbox et pas la listbox en entier.
A mon avis, il faut que tu fasses une boucle sur l'ensemble des éléments de la listbox pour les récupérer un par un.
Ou tu passes par une feuille intermédiaire sur laquelle tu colles que le contenu de ta listbox

Code :

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

Sheets("Feuil1").Range(Cells(1, 1), Cells(ListBox1.ListCount, 1)) = ListBox1.List

et tu copies-colles cette plage de cellule dans ton message.

Je ne sais pas s'il y a plus simple.

=> voici un tuto qui donne les possibilités avec la ListBox.