Discussion :

[bargougui86]

Bonjour
Je suis en train de développer une application vb6 qui contient plusieurs listbox
Je cherche une procédure qui permet de trier les données dans le listbox selon l'entête que l'utilisateur à cliquer sur elle par exemple
si j'ai un list box qui contient les entête suivante:

N° | Date |Montant

S'il clique sur N° les données vont être triée selon les N° dans l'ordre croissant par défaut et s'il répète le clique sur le N° l'ordre devient l'inverse (Décroissant)

ainsi pour les autres colonnes de l'entête.

Merci d'avnace

[Delbeke]

Heu, tu est sûr qu'il s'agit bien d'un listbox ?
Le listbox que je connais n'a qu'une colonne et n'a pas de titre.
maintenant je ne connais pas tout.

[bargougui86]

Bonjour
Je suis en train de développer une application vb6 qui contient plusieurs listbox
Je cherche une procédure qui permet de trier les données dans le listbox selon l'entête que l'utilisateur à cliquer sur elle par exemple
si j'ai un list box qui contient les entête suivante:

N° | Date |Montant

S'il clique sur N° les données vont être triée selon les N° dans l'ordre croissant par défaut et s'il répète le clique sur le N° l'ordre devient l'inverse (Décroissant)

ainsi pour les autres colonnes de l'entête.

Merci d'avnace

Je rectifie , je me suis trompé au nom du composant c'est un listview vb6

[spdev666]

Voir propriétés SortOrder et Sorted...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
' Tri lors du clic sur colonne ----------
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    ListView1.Sorted = False
    ListView1.SortKey = ColumnHeader.Index - 1
    'permet de passer de
    'lvwDescending  = 1
    'lvwAscending = 0
    'et vice-versa.
    ListView1.SortOrder = 1 - ListView1.SortOrder
    ListView1.Sorted = True
End Sub

Il faut d'abord initialiser la grille en ajoutant des colonnes invisible (largeur=0) dans lesquelles les données sont formatées pour que le tri fonctionne.
Ensuite, il faut modifier le code ci-dessus pour que par exemple si Colonne1 est ma colonne visible et Colonne2 contient les mêmes données mais formatées pour être "triables", lorsque je clic sur Colonne1, le tri est appliqué sur Colonne2

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
' Tri lors du clic sur colonne ----------
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim lColonne as long

    lColonne = ColumnHeader.Index - 1
    Select Case lColonne
        Case 0
            lColonne = lColonne + 1
    End Select

    ListView1.Sorted = False
    ListView1.SortKey = lColonne
    'permet de passer de
    'lvwDescending  = 1
    'lvwAscending = 0
    'et vice-versa.
    ListView1.SortOrder = 1 - ListView1.SortOrder
    ListView1.Sorted = True
End Sub

[bargougui86]

I dans lesquelles les données sont formatées pour que le tri fonctionne.

Vous pouvez m'expliquer qu'est ce que cela veut dire formatée?????
Car j'ai ajouté des colonne invisible et au niveau du remplissage j'ai fait ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set l = List1.ListItems.Add
       l.Text = rs("FT_FAC_NUM")
        I = List1.ListItems.Count + 1
        l.ListSubItems.Add , , CStr(rs("FT_FAC_NUM"))
 
        l.ListSubItems.Add , , rs("FT_DATE")
        l.ListSubItems.Add , , CStr(rs("FT_DATE"))
 
        l.ListSubItems.Add , , rs("FT_AGENCE")
        l.ListSubItems.Add , , rs("FT_TTC")
        l.ListSubItems.Add , , rs("FT_PM")
        l.ListSubItems.Add , , rs("FT_TD")

J'ai testé le tri pour la colonne du numéro des facture et la colonne des date mais le trie ne fonctionne pas.

[ProgElecT]

Code :

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

1
2
3
4
5
Dim MeDate As Date
MeDate = "13/04/1956"
MsgBox MeDate 'pas de formatage
MsgBox Format(MeDate, "yyyy/mm/dd") 'formaté
MsgBox Year(MeDate) & "/" & Month(MeDate) & "/" & Day(MeDate) 'formaté

Formatage: mise en forme autre que le style par défaut.

[bargougui86]

Code :

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

1
2
3
4
5
Dim MeDate As Date
MeDate = "13/04/1956"
MsgBox MeDate 'pas de formatage
MsgBox Format(MeDate, "yyyy/mm/dd") 'formaté
MsgBox Year(MeDate) & "/" & Month(MeDate) & "/" & Day(MeDate) 'formaté

Formatage: mise en forme autre que le style par défaut.

Si j'ai une colonne qui contient des numéro comment la formater????

[OhMonBato]

En allant voir dans l'aide de VB peut être ?