Discussion :

[codial]

Bonjour,

j'utilise la fonction de Maxence pour trier un listview mais je n'arrive pas à le trier sur un champ date bien que déclaré comme champ date:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 Sub OrderByCol(ByVal NumCol As Long, _
         ByVal NewFill As Boolean)
'------------------------------------
' Procedure : OrderByCol
' Créée le  : jeudi 10 mars 2005 22:55
' Auteur    : Maxence
' Objet     : Procédure gérant le tri

Quelqu'un à une idée ?

D'avance merci

Codial

[SilkyRoad]

bonsoir

peux tu donner plus de précisions sur ton soucis

Normalement les ListView possèdent une propriété Sorted. Si tu places cette propriété à True, les Items de la première colonne seront triés par défaut. tu peux spécifier la colonne de tri en indiquant une valeur dans la propriété SortKey. L'index de la première colonne est 0. La propriété SortOrder définit le sens du tri: lvwAscending (Croissant) ou lvwDescending (Décroissant).


bon week end
michel

[codial]

Bonjour,

je joins le code source. Comme j'ai expliqué ce code tri bien les champ textes mais pas les champs dates et numériques. Je ne vois pas pourquoi mes champs son bien déclarés en champ date/heure.

Cordialement

Codial

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
32
33
34
35
 Sub OrderByCol(ByVal NumCol As Long, ByVal NewFill As Boolean)
'---------------------------------------------------------------------------------------
' Procedure : OrderByCol
' Créée le  : jeudi 10 mars 2005 22:55
' Auteur    : Maxence
' Objet     : Procédure gérant le tri
' Arguments : NumCol = N° de la colonne sélectionnée lors du clic
'             NewFill = VRAI s'il s'agit d'un remplissage de la liste, faux sinon
'---------------------------------------------------------------------------------------
'
    Static Colonne As Long
debut:
    'La liste est triée
    lvwElements.Sorted = True
    'Si c'est un RECLIC
    If NumCol = Colonne And Not NewFill Then
        'Changer l'ordre de tri et l'affichage du petit logo qui va avec
        If lvwElements.SortOrder = 0 Then
            lvwElements.SortOrder = 1
            lvwElements.ColumnHeaders(NumCol).Icon = 2
        Else
            lvwElements.SortOrder = 0
            lvwElements.ColumnHeaders(NumCol).Icon = 1
        End If
    Else        'Sinon, remise à 0 de tous les affichage => tri croissant
        If Colonne <> 0 Then lvwElements.ColumnHeaders(Colonne).Icon = 0
        Colonne = NumCol
        NewFill = False
        lvwElements.SortOrder = 1
        lvwElements.SortKey = lvwElements.ColumnHeaders(NumCol).Index - 1
        'et on met à jour
        GoTo debut
    End If
 
End Sub

[SilkyRoad]

bonjour

j'espere que ce lien pourra t'aider

http://www.developpez.net/forums/showthread.php?t=90297


voici une autre version sans colonne masquée, pour trier des colonnes contenant des dates

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
' ------ Tri d'une colonne  contenant des Dates -------
Private Sub ListView1_ColumnClick(ByVal ColumnHeader _
                                        As MSComctlLib.ColumnHeader)
   Dim i As Integer, j As Integer
 
    ListView1.Sorted = False
    ListView1.SortKey = ColumnHeader.Index - 1
 
    'Boucle sur toutes les lignes
    For i = 1 To ListView1.ListItems.Count
    ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text = _
        CDec(CDate(ListView1.ListItems(i). _
            ListSubItems(ColumnHeader.Index - 1).Text))
    Next i
 
    If ListView1.SortOrder = lvwAscending Then
        ListView1.SortOrder = lvwDescending
        Else
        ListView1.SortOrder = lvwAscending
    End If
 
    ListView1.Sorted = True
 
    'Boucle sur toutes les lignes
    For i = 1 To ListView1.ListItems.Count
    ListView1.ListItems(i).ListSubItems(ColumnHeader.Index - 1).Text = _
        Format(CDate(ListView1.ListItems(i).ListSubItems _
                (ColumnHeader.Index - 1).Text), "DD/MM/YYYY")
    Next i
 
End Sub

bonne journée
michel

[codial]

Bonjour,

merci pour les réponses, effectivement celà marche nickel avec les dates mais il faut que je l'adapte car celà ne fonctionne plus avec mes autres colonnes (textes)!

Encore merci!

Cordialement

Codial

[micniv]

j'espere que ce lien pourra t'aider

http://www.developpez.net/forums/showthread.php?t=90297

De mon côté, je tiens à adresser un GRAND BRAVO à SilkyRoad pour la qualité de son tuto sur les LV Il est d'une grande clarté et en quelques secondes j'ai pu trouver les infos et réponses qui m'intéressaient.

J'aurais aimé avoir ce tuto il y a quelques mois qd j'ai abordé le LV !

Ce forum peut être formidable.
Bonne journée

[ldealist]

J'ajoute une source (provenant principalement de MSDN) pour VB 2008, pour le tri des dates si ça peut intéresser quelqu'un :

Appliquer ici pour trier par date de modification :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Class ListViewItemComparer
    Implements IComparer
 
    Private col As Integer
 
    Public Sub New()
        col = 0
    End Sub
 
    Public Sub New(ByVal column As Integer)
        col = column
    End Sub
 
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
       Implements IComparer.Compare
        Select Case col
            Case 2 'Index de la colonne contenant des dates
                Return Date.Compare(CType(y, ListViewItem).SubItems(col).Text, CType(x, ListViewItem).SubItems(col).Text) 'Inverser y et x pour un tri chronologique
            Case Else
                Return String.Compare(CType(x, ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text)
        End Select
    End Function
End Class

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    Private Sub ListView1_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
        Me.ListView1.ListViewItemSorter = New ListViewItemComparer(e.Column)
    End Sub

J'ajoute à un grand merci à tous les rédacteurs de ce site ^^