Comment coller la deuxième ligne de ma listview

[christian.bedere]

Bonsoir à vous

D'après ce code, que dois je rajouter pour que la deuxième ligne de ma listview soit copiée et pas uniquement la première ?

'colle le programme
Dim I As Byte
Dim J As Byte
Dim Ligne As Integer

Ligne = 11

With Me.ListView1
'les données
For I = 1 To .ListItems.Count
Ligne = Ligne + 1
Sheets("programme").Cells(Ligne, 5) = .ListItems(I).ListSubItems(1)
Sheets("programme").Cells(Ligne, 6) = .ListItems(I).ListSubItems(2)
Sheets("programme").Cells(Ligne, 7) = .ListItems(I).ListSubItems(3)
Sheets("programme").Cells(Ligne, 8) = .ListItems(I).ListSubItems(4)
Sheets("programme").Cells(Ligne, 9) = .ListItems(I).ListSubItems(5)
Next I

End With

Merci pour votre aide

 

[Bebere]

Re : Comment coller la deuxième ligne de ma listview

bonjour Christian

tu ajustes ligne et c(cells), si décalage

With ListView1
For I = 1 To .ListItems.Count
Sheets("programme").Cells(Ligne+I, 1) = .ListItems(I).Text 'code'1ère colonne
For C = 1 To .ColumnHeaders.Count - 1'colonne suivante
Sheets("programme").Cells(Ligne+I, C + 1) =.ListItems(I).ListSubItems(C).Text
Next C
Next I
End With
à bientôt

 

[christian.bedere]

Salut bebere

Et bien merci pour cette réponse aussi instructive que d'habitude.

Cela fonctionne bien, mais que dois-je rajouter pour que la listview aille se coller à la colonne 'e' soit, 5 et non en 'a'.

Encore un grand merci et à bientôt j'espère

kiki

 

[Bebere]

Re : Comment coller la deuxième ligne de ma listview

Christian au lieu de Cells(Ligne+I, C + 1) ,Cells(Ligne+I, C + 4)
à bientôt