Trier une listview

Version imprimable

Trier une listview

Je veux trier ma listview en fonction du columnheader sur lequel je clique, n'y a-t-il pas moyen de récupérer l'index du columnheader plutot que son nom parce que ça c'est pas vraiment esthétique...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Trier_List_View(LV As ListView, ByVal ColumnHeader As MSComctlLib.ColumnHeader)
'TRIE UNE LISTVIEW EN FONCTION DE LA COLONNE CLIQUEE
    LV.SortOrder = lvwAscending
    Select Case ColumnHeader
        Case "ID"
            LV.SortKey = 0
        Case "Date"
            LV.SortKey = 1
        Case "Client"
            LV.SortKey = 2
        Case "Contact"
            LV.SortKey = 3
        Case "Priorité"
            LV.SortKey = 4
        Case "Enr. par"
            LV.SortKey = 5
        Case "Dépt."
            LV.SortKey = 6
        Case "Dest."
            LV.SortKey = 7
        Case "Intervenant"
            LV.SortKey = 8
        Case "Statut"
            LV.SortKey = 9
        Case "Commentaires"
            LV.SortKey = 10
        Case Else
            Exit Sub
    End Select
    LV.Sorted = True
End Sub

Et y'a pas moyen que ça se fasse automatiquement sinon ? ça m'arrangerait ! :)

Y'a rien dans la FAQ sur les listview !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub List1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    Static ColHead As String
    If ColumnHeader.Text = ColHead Then
        If List1.SortOrder = lvwAscending Then
            List1.SortOrder = lvwDescending
        Else
            List1.SortOrder = lvwAscending
        End If
    Else
        List1.SortOrder = lvwAscending
    End If
    List1.SortKey = ColumnHeader.Index - 1
    List1.Sorted = True
    ColHead = ColumnHeader.Text
End Sub

17/07/2007, 13h36
Gaetch

Nikel merci je vais essayer de trouver si y'a moyen d'afficher la petite flèche dans l'en tête de la colonne et ce sera parfait merci bcp.