récuperer données listview sur feuille excel

[kesri]

Bonsoir,
Je suis nouveau dans excel, je souhaiterais copier les données d'une listview sur excel
voila ce que j'ai fait et ca marche nickel, sauf que je suis confronter à un problème de position. cad, lorsque je copie les données de la listview ces derniers doivent se coller sur une feuille d'excel qui commence à la 3ème ligne (A3).


Voilà ce que j'ai fait

Private Sub Copier_Click()
Dim i As Integer
Dim j As Byte
Feuil3.Select

For i = 2 To ListView1.ListItems.Count
Cells(i, 1) = ListView1.ListItems(i).Text
For j = 1 To ListView1.ColumnHeaders.Count - 1
Cells(i, j + 1) = ListView1.ListItems(i).ListSubItems(j).Text
Next j
Next i
End Sub
merci pour votre aide

 

[CHALET53]

Re : récuperer données listview sur feuille excel

cells(i,1) signifie que tu commences sur la ligne 2 de la feuille excel
Ajouter un deuxième compteur k qui prend au départ (derrière Feuil3.Select) la valeur 3

dans la boucle tu fais varier k de 1 k=k+1 avant d'attaquer la boucle suivante
Tu remplaces cells(i,1) par cells(k,1)

A suivre

 

[kesri]

Re : récuperer données listview sur feuille excel

Bonsoir
Merci pour la réponse
est ce que c'est possible un exemple concret svp
merci pour votre aide
cordialement

 

[CHALET53]

Re : récuperer données listview sur feuille excel

Private Sub Copier_Click()
Dim i As Integer
Dim j As Byte
Feuil3.Select
k=1
For i = 2 To ListView1.ListItems.Count
Cells(k, 1) = ListView1.ListItems(i).Text :k=k+1
For j = 1 To ListView1.ColumnHeaders.Count - 1
Cells(k, j + 1) = ListView1.ListItems(i).ListSubItems(j).Text :k=k+1
Next j
Next i
End Sub
merci pour votre aide

 

[CHALET53]

Re : récuperer données listview sur feuille excel

Correction : au départ k=3 et non 1

a+

 

[kesri]

Re : récuperer données listview sur feuille excel

Bonsoir,
merci de s'interesser à mon problème
le problème persiste toujours
avec les nouvelles lignes de progarmme il copie en cascade
ci-jint le fichier pour mieux me comprendre
merci en core
cordialment

 

[CHALET53]

Re : récuperer données listview sur feuille excel

fichier modifié
La définition de la feuille pour écrire n'était pas bonne
Quelques modifications dans la boucle par rapport à ce que j'avais dit

a+

 

[kesri]

Re : récuperer données listview sur feuille excel

Bonjour mon ami
ca marche nickel " t'es vraiment fort" je ne trouve pas de mots qu'ils faut pour te remercier
Merci beaucoups
problème résolu.

 

[CHALET53]

Re : récuperer données listview sur feuille excel

Merci pour les compliments

Faut tout de même savoir rester modeste : y'a beaucoup plus fort que moi sur ce forum

Heureux de savoir que cela te convienne

a+