Bonsoir,
Je souhaiterais savoir comment je peux extraire seulement la ligne sélectionnée (FullRowSelect = True) dans une listview ?
Actuellement, j'utilise un code de J.P. Bonnetto mais qui extrait toute la listview. Comment je pourrais le modifier pour n'extraire que la ligne active ?
Voici le code d'extraction de toute la listview que je souhaiterais modifier (je ne pense pas pouvoir fournir le fichier car il est payant sur son site) :
Private Sub btnExtraction_Click()
Dim i, j As Integer
Feuil2.Range(Cells(2, 1), Cells(1000, 9)).Select
Selection.ClearContents
For i = 1 To ListView1.ListItems.Count (il a intégré un compteur du nombre de ligne dans le tableau source)
Feuil2.Cells(i + 1, 1) = ListView1.ListItems(i).Text
For j = 1 To 1
Feuil2.Cells(i + 1, 2) = ListView1.ListItems(i).ListSubItems(1).Text
Feuil2.Cells(i + 1, 3) = ListView1.ListItems(i).ListSubItems(2).Text
Feuil2.Cells(i + 1, 4) = ListView1.ListItems(i).ListSubItems(3).Text
Feuil2.Cells(i + 1, 5) = ListView1.ListItems(i).ListSubItems(4).Text
Feuil2.Cells(i + 1, 6) = ListView1.ListItems(i).ListSubItems(5).Text
Feuil2.Cells(i + 1, 7) = ListView1.ListItems(i).ListSubItems(6).Text
Feuil2.Cells(i + 1, 8) = ListView1.ListItems(i).ListSubItems(7).Text
Feuil2.Cells(i + 1, 9) = ListView1.ListItems(i).ListSubItems(8).Text
Next j
Next i
End Sub
Merci à vous
Je souhaiterais savoir comment je peux extraire seulement la ligne sélectionnée (FullRowSelect = True) dans une listview ?
Actuellement, j'utilise un code de J.P. Bonnetto mais qui extrait toute la listview. Comment je pourrais le modifier pour n'extraire que la ligne active ?
Voici le code d'extraction de toute la listview que je souhaiterais modifier (je ne pense pas pouvoir fournir le fichier car il est payant sur son site) :
Private Sub btnExtraction_Click()
Dim i, j As Integer
Feuil2.Range(Cells(2, 1), Cells(1000, 9)).Select
Selection.ClearContents
For i = 1 To ListView1.ListItems.Count (il a intégré un compteur du nombre de ligne dans le tableau source)
Feuil2.Cells(i + 1, 1) = ListView1.ListItems(i).Text
For j = 1 To 1
Feuil2.Cells(i + 1, 2) = ListView1.ListItems(i).ListSubItems(1).Text
Feuil2.Cells(i + 1, 3) = ListView1.ListItems(i).ListSubItems(2).Text
Feuil2.Cells(i + 1, 4) = ListView1.ListItems(i).ListSubItems(3).Text
Feuil2.Cells(i + 1, 5) = ListView1.ListItems(i).ListSubItems(4).Text
Feuil2.Cells(i + 1, 6) = ListView1.ListItems(i).ListSubItems(5).Text
Feuil2.Cells(i + 1, 7) = ListView1.ListItems(i).ListSubItems(6).Text
Feuil2.Cells(i + 1, 8) = ListView1.ListItems(i).ListSubItems(7).Text
Feuil2.Cells(i + 1, 9) = ListView1.ListItems(i).ListSubItems(8).Text
Next j
Next i
End Sub
Merci à vous