tri de colonnes sur une listview

[pgauzere]

bonjour à tous,

voila je dispose d'une listview de 8 colonnes.

Quand on clique sur une ligne au niveau de la premiere colonne un graphique se met à jour. jusque là pas de pb.

maintenant je voudrais qu'un tri se fasse quand on clique sur un entete de colonne.

j'ai entré le code suivant trouvé sur internet (ma listview s'appelle listviewcompare):

Private Sub ListViewcompare_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)


ListViewcompare.Sorted = False
ListViewcompare.SortKey = ColumnHeader.Index - 1

If ListViewcompare.sortOrder = lvwAscending Then
ListViewcompare.sortOrder = lvwDescending
Else
ListViewcompare.sortOrder = lvwAscending
End If

ListViewcompare.Sorted = True
End Sub


Mais cela ne fonctionne pas, j'ai un message d'erreur suivant: ereur de compilation type defini par l'utilisateur non defini.

sauriez vous d'ou vient le pb ?

Merci a tous
Cdlmt

Patrick

 

[Dranreb]

Re : tri de colonnes sur une listview

Bonjour.
Il manque la référence "Microsoft Windows Common Controls 6.0 (SP4)" (bibliothèque MSComctlLib, fichier mscomctl.ocx)
Cordialement.

 

[pgauzere]

Re : tri de colonnes sur une listview

bonsoir Dranreb,

merci pour la réponse.

mais il y a quelque chose que je ne comprends pas. S'il manque la bibliotheque en question, alors pourquoi est ce que le fichier joint (pris sur internet pour exemple) fonctionne alors qu'il fait appel a cette meme bibliotheque ?

Y a t-il une manip à faire que je n'aurais pas fait.

Bonne soirée

Patrick

 

[Dranreb]

Re : tri de colonnes sur une listview

La manip en tout cas c'est d'aller, dans VBA, menu Outils, Références… Chercher dans la liste et cocher la référence "Microsoft Windows Common Controls 6.0 (SP4)"
À +

 

[pgauzere]

Re : tri de colonnes sur une listview

Ca y est, grace au message de Dranreb, j'ai compris qu'il fallait rajouter la ref en question à mon projet VBA !

Merci Bcp pour m'avoir dépanné !

Bonne soirée

Patrick

 

[pgauzere]

Re : Résolu! :tri de colonnes sur une listview

j'ai simplement rajouté Résolu dans le titre.
A+