Envoyer données ListView sur feuille Excel

Bonjour,

Modifier comme suit :

Sub EnregistrerListeProspection()
Dim i%
i = 1
Do While Feuil2.Cells(i, 1) <> ""
   i = i + 1
Loop
With UserForm1.ListView1
            Feuil2.Cells(i, 1).Value = .SelectedItem
            Feuil2.Cells(i, 2).Value = .SelectedItem.ListSubItems(1)
            Feuil2.Cells(i, 3).Value = .SelectedItem.ListSubItems(2)
End With
End Sub

A+

Bonjour Arnaud, bonjour Galopin ...

Il y a beaucoup plus simple = faire un filtre avancé à partir de quelques valeurs saisies dans la feuille elle-même, la recherche et l'affichage se faisant au fur et a mesure de la saisie des informations dans la feuille.

exemple ... j'ai laissé le même nom de fichier mais cela n'a plus rien à voir

la macro fait 2 lignes

Bonjour galopin, Steelson,

@Steelson merci pour l'astuce mais ce n'est pas ce que je cherchais à faire, je ne me suis pas encore attaqué au tri, la je voulais envoyer les entreprises sélectionné de la listview sur une feuille excel.

@galopin01 Merci, j'ai réussi à faire ce que je voulais avec ton code :)

Sub EnregistrerListeProspection()

Dim i As Integer, j As Integer
Dim NbrColonne As Integer
Dim DateAjout As Date

DateAjout = Now()
NbrColonne = Feuil5.Range("A1").CurrentRegion.Columns.Count
i = 1

If uf_RechercheSociete.tb_NomListeProspection.Text = "" Then
    MsgBox "Veuillez entrer un nom de liste de prospection. Ex: Semaine 32", vbOKOnly
        Else

Do While Feuil7.Cells(i, 1) <> ""
   i = i + 1
Loop
With uf_RechercheSociete.lv_ZoneRecherche
    For j = 1 To NbrColonne
            Feuil7.Cells(i, 1).Value = .SelectedItem
            Feuil7.Cells(i, j + 1).Offset(0, 2).Value = .SelectedItem.ListSubItems(j)
            Feuil7.Cells(i, 2).Value = uf_RechercheSociete.tb_NomListeProspection.Text
            Feuil7.Cells(i, 3).Value = Format(DateAjout, "dd.mm.yyyy hh:mm")
            '.ListItems.Remove .SelectedItem.Index
    Next j
End With
End If
End Sub