Discussion :

[pier*]

Bonjour,

J'ai déjà consulté les problèmes de tri sur les listviews dans le forum mais je n'y ai pas trouvé mon bonheur. Mon problème est que je souhaite trier un listview qui contient des nombres malheuresement VB effectue un tri alphabétique sur ces nombres, il considère donc que 10 11 et 12 sont plus petit que 2 par exemle...

[malhivertman1]

ta listview se rempli a partir d'ou?

[pier*]

Ma listview se remplie à partir d'un ADODB.recordset qui se connecte à une base de donnée Oracle.

[malhivertman1]

peut-etre tu pourrait remplir une liste et ensuite, tu en rempli une nouvelle en fesant le tri que tu veux, en comparant chaque chiffre que tu ajoute. bon c'est du traitement un peu mais je ne sais pas s'il y a d'autre solution..

[pier*]

Oui je crois que ca pourrai marcher si je rajoute une collone caché avec des zeros inutiles. Comme ca 00010 est pus grand que 00002 en tri alphabétique. Enfin je vais essayer je ne suis pas sur et ca reste de la bidouille.

[malhivertman1]

oui ben si tu rajoute des 0 , c'est rapide, tu les rajoute dans ta boucle ou tu fais ta liste

[ThierryAIM]

si le champ du recordset est un numerique, fais un tri dessus avant de charger ta listview

[pier*]

si le champ du recordset est un numerique, fais un tri dessus avant de charger ta listview

Meci Thierry mais le tri s'effectue lorsque l'utilisateur clique sur une colonne, de plus il y a un tri croissant ou decroissant je ne vais donc pas recharger ma listview juste pour un tri.

Voici la soluce que j'ai trouvé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
'Ma premiére colonne représente mes identifiants
'La colonne 7 est une colonne caché qui représente les identifiants avec des 0 inutiles pour 'bypasser' le tri alphabétique
For I = 1 To listProp.ListItems.Count
            Dim strTmp As String
            strTmp = listProp.ListItems.Item(I)
            While (Len(strTmp) < 10)
                strTmp = "0" & strTmp
            Wend
            listProp.ListItems.Item(I).SubItems(7) = strTmp
Next