Copie ListBox dans feuille

[Pierre31]

Bonjour à toutes et tous,

J'ai une ListBox1 multicolonnes (3 colonnes)que je souhaite copier dans ma feuille 'Resultat' à partir de la cellule 'A2'.
Actuellement j'ai le code suivant qui ne copie que la 1ere colonne de ma ListBox1

Private Sub CommandButton1_Click()

For x = 0 To ListBox1.ListCount - 1
Sheets('Resultat').Cells(x + 1, Col).Value = ListBox1.List(x)

Next x

End Sub

Comment je peux recopier toutes les colonnes de la ListBox ?
D'avance merci pour vos réponses.
Cordialement
Pierre

 

[Hervé]

Bonjour pierre

une solution sans boucle :

With ListBox1
        If Not .ListCount = 0 Then 'si listbox n'est pas vide
                Sheets('Resultat').Range('a1').Resize(.ListCount, .ColumnCount) = .List
        End If
End With

salut

 

[Pierre31]

Bonjour Hervé
Merci beaucoup pour ta solution, elle fonctionne parfaitement.
Bonne journée
Cordialement
Pierre