Copier totalité d'une listbox dans un feuille

Bonjour à tous,

Je recherche un code vba pour copier (via bouton) tout le contenu de ma listbox vers la feuille nommé "résultat" en postions A19 . ( nombre de ligne texbox variable suivant filtre via 3 combobox) ,

Merci

Cordialement.

bonsoir ced 91300

voici un lien qui peux peut être t'aider

https://forum.excel-pratique.com/excel/copier-une-listbox-dans-une-feuille-t77873.html

Bonsoir,

Sub ExportLbx()
    Dim Tbl, n%, k%
    With ListBox1
        n = .ListCount: k = .ColumnCount: Tbl = .List
    End With
    Worksheet("résultat").Range("A19").Resize(n, k).Value = Tbl
End Sub

Cordialement.

Bonjour,

merci pour la reponse

entre temps j'ai trouver en faisant cela:

Private Sub CommandButton1_Click()

Sheets("10").Range("A19").Resize(Me.ListBox1.ListCount, 1).Value = ListBox1.List

Sheets("10").Range("A19").Resize(Me.ListBox1.ListCount, 2).Value = ListBox1.List

Sheets("10").Range("A19").Resize(Me.ListBox1.ListCount, 3).Value = ListBox1.List

Sheets("10").Range("A19").Resize(Me.ListBox1.ListCount, 4).Value = ListBox1.List

Unload Me

End Sub

je vais tester ta solution qui semble beaucoup plus propre

Merci

Cordialement.

Bonjour,

Et pour l' affecter à un bouton ?

Merci

Cordialement

Tu mets le code en procédure du bouton :

Private Sub CommandButton1_Click()
    Dim Tbl, n%, k%
    With ListBox1
        n = .ListCount: k = .ColumnCount: Tbl = .List
    End With
    Worksheet("résultat").Range("A19").Resize(n, k).Value = Tbl
End Sub

Là le bouton est dans le même Userform que la ListBox...

Cordialement.

merci pour la réponse, c'était worksheet qui bloquait j'ai changé par shteets

Cordialement

Au temps pour moi , il manque un s à Worksheets... Problème d'actualisation de ma version de test à ton cas. Désolé !

Pas de soucis pour une fois que c'est moi qui arrive à corriger quelque chose tout seul

Bonsoir,

Une autre question, et si je souhaite pouvoir récupérer une colonne de ma listBox (ou plusieurs pas forcement cote à cote), pour les coller dans ma feuille ?

(sur le net ils parlent de ligne mais très peu de la récupération des colonnes)

Merci .

Cordialement.