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

T

torple

XLDnaute Nouveau

• 3 Avril 2020

• #16

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


Encore merci pour ton aide

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Avril 2020

• #17

re
de rien mais ca fait peur le sorted LOL

 

Vote positif 0 Vote négatif

T

torple

XLDnaute Nouveau

• 3 Avril 2020

• #18

Question comment on fait pour clôturer une discussion ?

 

Vote positif 0 Vote négatif

T

torple

XLDnaute Nouveau

• 3 Avril 2020

• #19

Je regarde ce que tu viens de poster

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Avril 2020

• #20

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

 

Vote positif 0 Vote négatif

T

torple

XLDnaute Nouveau

• 3 Avril 2020

• #21

J'ai pas ça moi

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Avril 2020

• #22

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

 

Vote positif 0 Vote négatif

T

torple

XLDnaute Nouveau

• 3 Avril 2020

• #23

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

il faut le mettre a 1
ListView1.SortKey = 1

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Avril 2020

• #24

ok tu vois on en apprend tout les jours 😉

 

Vote positif 0 Vote négatif

T

torple

XLDnaute Nouveau

• 3 Avril 2020

• #25

ListView1.Sorted = True
ListView1.SortKey = 1

Il faut mettre ListView1.SortKey à 1

 

Vote positif 0 Vote négatif

T

torple

XLDnaute Nouveau

• 3 Avril 2020

• #26

encore super merci

Eric

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Avril 2020

• #27

de rien
tiens un peu de couleur

VB:

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

 

Vote positif 0 Vote négatif