Copier le contenu d'une listbox dans une cellule

Bonjour,

Je souhaiterais copier le contenu d'une listbox dans une cellule.

J'arrive à copier lorsqu'il y a une ligne dans ma listbox:

Sheets(Me.ComboBox1.Text).Range("i3").Value = Me.ListMets.List

mais je souhaiterais copier toutes les lignes de ma listbox quand c'est le cas.

Merci d'avance.

Bonsoir,

une solution, à tester ...

st=""
sep = ""
For i = 0 To ListMets.ListCount - 1
 st = st & sep & ListMets.List(i)
 If st <> "" Then sep = vbCrLf
Next i
Sheets(Me.ComboBox1.Text).Range("i3").Value =st

Bonjour,

une autre approche :

Sheets(Me.ComboBox1.Text).Range("i3").Value = Join(Application.Transpose(ListMets.List), vbLf)

bonne journée

@+

h2so4 a écrit :

Bonsoir,

une solution, à tester ...

st=""
sep = ""
For i = 0 To ListMets.ListCount - 1
 st = st & sep & ListMets.List(i)
 If st <> "" Then sep = vbCrLf
Next i
Sheets(Me.ComboBox1.Text).Range("i3").Value =st

C'est parfait, merci beaucoup.

Ma cellule I3 fait 3 lignes je vais essayer maintenant de créer une barre déroulante dans I3 lorsqu'il y a plus de 3 résultats.