Bonjour à tous
je viens vers vous pour m'aider svp de copier dans une feuille des ligne préalablement sélectionner dans ma list view.
actuelement j'utilise cette macro
le soucis c'est qu'il me copie toute les lignes moi je souhaite copier uniquement les lignes sélectionner comment dois je m'y prendre svp merci
je viens vers vous pour m'aider svp de copier dans une feuille des ligne préalablement sélectionner dans ma list view.
actuelement j'utilise cette macro
Code:
Sub imprime()
Dim Ligne As Long
With Me.ListView3
Sheets("Imprime").[A4:K4000].ClearContents
Ligne = 4
Dim Li&
For Li = 1 To ListView3.SelectedItem.Index
Sheets("Imprime").Cells(Ligne, 1) = ListView3.ListItems(Li).Text
Sheets("Imprime").Cells(Ligne, 2) = ListView3.ListItems(Li).ListSubItems(2)
Ligne = Ligne + 1
Next Li
End With
End Sub
le soucis c'est qu'il me copie toute les lignes moi je souhaite copier uniquement les lignes sélectionner comment dois je m'y prendre svp merci