Copier une listbox dans une feuille

Bonjour à la fin de mon userform

j'ai ça

Private Sub ListBox1_Click() 'au clic dans la ListBox1

Dim LI As Long 'définit la variable LI (LIgne)

LI = Me.ListBox1.Column(0, Me.ListBox1.ListIndex) 'définit la ligne LI (récupérée dans la colonne 0 Masquée de la ListBox1)

O.Range("A" & LI).Select 'sélectionne le numéro de système de la ligne cliquée

Selection.Copy

Unload Me

sujet en double

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

fred

je me suis débrouillé tout seul comme ça : il y a surement plus simple mais bon je fais avec mes capacités. Merci

With Me.ListBox1

For I = 0 To .ListCount - 1

j = j + 1

Worksheets("Résultat") _

.Range("A" & j).Value = .List(I, 1)

Worksheets("Résultat") _

.Range("B" & j).Value = .List(I, 2)

Worksheets("Résultat") _

.Range("C" & j).Value = .List(I, 3)

Worksheets("Résultat") _

.Range("D" & j).Value = .List(I, 4)

Worksheets("Résultat") _

.Range("E" & j).Value = .List(I, 5)

Worksheets("Résultat") _

.Range("F" & j).Value = .List(I, 6)

Worksheets("Résultat") _

.Range("G" & j).Value = .List(I, 7)

Worksheets("Résultat") _

.Range("H" & j).Value = .List(I, 8)

Next

End With

re

Peut-etre comme ceci :

With Me.ListBox1
    For i = 0 To .ListCount - 1
        For j = 1 To 8
        Worksheets("Résultat").Cells(i + 1, j) = .List(i, j)
        Next
    Next
End With

fred

yes beaucoup plus court en effet merci