Microsoft 365 Récupérer valeurs lignes filtrées triées sans doublon dans Listview

[torple]

Salut à tous,
J'aimerai avoir une listview avec seulement les valeurs des lignes filtrées (non masquées) triées (filtre = Val1) par ordre alpha et sans doublon de la colonne Valeur.
J'avoue que je séche.

Merci d'avance pour votre aide

Eric

 

[torple]

non le trie du listeview marche super bien
ListView1.Sorted = True
ListView1.SortKey = 0


Encore merci pour ton aide

 

[patricktoulon]

re
de rien mais ca fait peur le sorted LOL

 

[torple]

Question comment on fait pour clôturer une discussion ?

 

[torple]

Je regarde ce que tu viens de poster

 

[patricktoulon]

re
soit tu clique marquer comme solution dans un des posts qui te convient soit tu réédit le poste 1 et tu clique sur l'icone a gauche du titre

ps: en fait ca tri par la colonne 1 c'est pour ca

 

[torple]

J'ai pas ça moi

 

[patricktoulon]

si tu veux trier par une autre colonne il te faut passer par quick sort

 

[torple]

oui parce-que tu as le
ListView1.SortKey = 0

il faut le mettre a 1
ListView1.SortKey = 1

 

[patricktoulon]

ok tu vois on en apprend tout les jours

 

[torple]

ListView1.Sorted = True
ListView1.SortKey = 1

Il faut mettre ListView1.SortKey à 1

 

[torple]

encore super merci

Eric

 

[patricktoulon]

de rien
tiens un peu de couleur

Private Sub CommandButton1_Click()
    Dim i&, r As Range, p As Range
    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
    With ListView1
        For Each r In p.Rows
            If Not dico.exists(Feuil1.Cells(r.Row + 1, "G").Value) Then
                i = i + 1
                .ListItems.Add , , Feuil1.Cells(r.Row + 1, "E")  '<--- modifier l'instruction pour ajouter
                .ListItems(i).ForeColor = RGB(0, 255, 255)
                .ListItems(i).ListSubItems.Add , , Feuil1.Cells(r.Row + 1, "G")
                .ListItems(i).ListSubItems(1).ForeColor = RGB(255, 0, 0)
            End If
            dico(Feuil1.Cells(r.Row + 1, "G").Value) = ""
        Next
        ListView1.Sorted = True
        ListView1.SortKey = 1
    End With
End Sub