Exporter les données d'un listview vers une feuille de calcul

Bonjour,

je souhaite pouvoir exporter les données contenues dans ma listview vers une feuille de calcul.

Ma listview se nomme ListView1 et contient 27 colonnes et x lignes que je voudrais exporter vers une feuille nommée Suivi_Activite.

Merci par avance de l'aide que vous voudrez bien m'apporter

Bonsoir,

pour une ListBox c'est comme cela : Sheets("Feuil1").Range("D5").Resize(ListBox1.ListCount, 27) = ListBox1.List
A voir si pour une ListView c'est pareil...

@ bientôt

LouReeD

bonjour LouReeD,

Malheureusement si façon de faire fonctionne très bien avec une ListBox elle ne convient pas à une ListView.

D'autres idées ?

Merci par avance

Bonsoir,

il y a la solution de la boucle sur la listview, pour l'exemple ici avec 5 colonnes et transfert à partir de A2 :

    Dim Lig As Long
    Dim Col As Integer

    With Worksheets("Feuil1")
        For Lig = 1 To ListView1.ListItems.Count
            .Range("A" & Lig + 1).Value = ListView1.ListItems(Lig).Text
            ' Détail des autres colonnes
            For Col = 1 To 4
                .Cells(Lig + 1, Col + 1).Value = ListView1.ListItems(Lig).ListSubItems(Col).Text
            Next Col
        Next Lig
    End With

@ bientôt

LouReeD