Copier item listview vers excel

Question

Bonjour

Je travail en vba et j'ai un petit probl&#232;me.
J'aimerais savoir comment faire pour transf&#233;rer toutes les valeurs que j'ai dans une listview vers un fichier excel d&#233;ja ouvert. Je voudrais copier toutes les valeurs de la listview d'un seul coup en cliquant sur un commandbutton.

Merci d'avance et j'espere que vous aller pouvoir m'aider.


Sheffy

zoglub14 · Answer

Bonjour,

Ci-dessous une fonction g&#233;n&#233;rique qui marche pour tous les listview.
Attention toutefois pour les colonnes de 9 &#224; 12, moi j'ins&#232;re des formats dates.

A toi de modifier cette partie si tu affiches autre chose. D'autre part la 1ere ligne est remplie avec les headers des colonnes de la lsitview.

@+

Zoglub

Dim I           As Integer
Dim Nb_Lignes   As Long
Dim Nb_Col      As Integer
Dim X           As Integer
Dim Y           As Long


'
Application.Workbooks.Add


With MaUserform.MonListview
    If .ListItems.Count > 0 Then
    Nb_Col = .ListItems(1).ListSubItems.Count
    Nb_Lignes = .ListItems.Count
    For X = 1 To Nb_Col + 1
        Cells(1, X).Value = .ColumnHeaders(X).Text
        For Y = 1 To Nb_Lignes
            Select Case X
                Case 1
                    Cells(Y + 1, X).Value = (.ListItems.Item(Y).Text)
                Case 9, 10, 11, 12
                    If .ListItems(Y).ListSubItems(X - 1).Text <> "" Then
                        Cells(Y + 1, X) = CDate(Format((.ListItems(Y).ListSubItems(X - 1).Text), "dd/mm/yyyy"))
                    End If
                Case Else
                    Cells(Y + 1, X).Value = (.ListItems(Y).ListSubItems(X - 1).Text)
            End Select
        Next Y
    Next X

cs_hania123 · Answer

je cherecher des information qui peux me aider pour insert un boucle  dans listview dans vb2005
merci a  tous

Copier item listview vers excel

2 réponses

Discussions similaires