Marche pas.
Set dico = CreateObject("scripting.dictionary")
With Feuil1.Range("E1:G" & Cells(Rows.Count, 6).End(xlUp).Row)
.AutoFilter Field:=2, Criteria1:="Val1"
Set p = .SpecialCells(xlVisible)
.AutoFilter
End With
For Each r In p.Rows
If Not dico.exists(Feuil1.Cells(r.Row, 6)) Then
i = i + 1
ListView1.Add
i - 1, , Feuil1.Cells(r.Row, "E") 'Bloque ici
ListView1.ListItems(i - 1).ListSubItems.Add 1, , Feuil1.Cells(r.Row, "f")
dico(Feuil1.Cells(r.Row, "F")) = ""
End If
Next
j'ai modifier ton code par
J'ai virer la colonne Id dans la listview donc plus qu'une colonne
Set dico = CreateObject("scripting.dictionary")
With Feuil1.Range("E2:G" & Cells(Rows.Count, 7).End(xlUp).Row)
.AutoFilter Field:=2, Criteria1:="Val1"
Set p = .SpecialCells(xlVisible)
'.AutoFilter <-- supprimer l'instruction sinon ca me vire le filtre
End With
For Each r In p.Rows
If Not dico.exists(Feuil1.Cells(r.Row, 7)) Then
i = i + 1
ListView1.ListItems.Add , , Feuil1.Cells(r.Row, "G") <--- modifier l'instruction pour ajouter
dico(Feuil1.Cells(r.Row, "G")) = ""
End If
Next
résultat il n'y a pas de trie ni suppression des doublons