XL 2016 Imprime sélection Listview

[Scorpio]

Salut à tous,
Dans ce classeur récupéré sur le net, j'aimerais bien l'utiliser, mais avec un bouton qui me permettrais de copier la sélection des données se trouvant dans la listview.
Y aurais-t-il, s'il vous plaît un membre, qui pourrais me dépanner.
Merci et à+++++

 

[thebenoit59]

Voici une possibilité :

Private Sub CommandButton1_Click()
Dim a()
Dim i&, ii&
With Me.ListView1
    ii = .ListItems.Count
    ReDim a(1 To ii, 1 To 3)
    For i = 1 To ii
        a(i, 1) = .ListItems(i)
        a(i, 2) = .ListItems(i).SubItems(1)
        a(i, 3) = .ListItems(i).SubItems(2)
    Next i
End With
ThisWorkbook.Sheets(2).[a1].Resize(UBound(a), 3).Value = a
End Sub

 

[Scorpio]

Bonjour,
Nickel, ça marche à merveille
Merci beaucoup, à++++++