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

[SfJ5Rpw8]

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
' 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

[bargougui86]

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
' 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

Le code que vous m'avez donné marche dans certain cas et dans d'autre cas non par exemple si j'ai une colonne qui contient des montant ou des numéro exemple (1000,500; 2000) le trie ne s'applique pas mais si j'ai des date ou des caractères le trie fonctionne correctement

[babaothe]

Le code que vous m'avez donné marche dans certain cas et dans d'autre cas non par exemple si j'ai une colonne qui contient des montant ou des numéro exemple (1000,500; 2000) le trie ne s'applique pas mais si j'ai des date ou des caractères le trie fonctionne correctement

salut

non, ton tri ne peut fonctionner coçrrectement avec des dates que si elles sont le la forme aaaa/mm/jj ou juliennes

Le tri se fait sur des strings.
Tu peux donc atteindre ton but, sans rien toucher à des données telles qu'elles sont en :
-ajoutant des colonnes invisibles où tu y formates des données (création de chaînes précédées d'"espaces ou de 0 pour les nombres, formatage de tes dates vers aaaa/mm/jj)
- triant sur les colonnes invisibles.

[bargougui86]

salut

non, ton tri ne peut fonctionner coçrrectement avec des dates que si elles sont le la forme aaaa/mm/jj ou juliennes

Le tri se fait sur des strings.
Tu peux donc atteindre ton but, sans rien toucher à des données telles qu'elles sont en :
-ajoutant des colonnes invisibles où tu y formates des données (création de chaînes précédées d'"espaces ou de 0 pour les nombres, formatage de tes dates vers aaaa/mm/jj)
- triant sur les colonnes invisibles.

Bonjour, du retour
J'ai pas bien compris votre idée vouss pouvez m'expliquer un peut??

[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 ?