Je crois que c'est un problème de bibliothèque manquante, voilà pourquoi cela ne fonctionne pas correctement.
Voilà où ça bloque :
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView1.Sorted = False
ListView1.SortKey = ColumnHeader.Index - 1
If ListView1.SortOrder = lvwAscending Then
ListView1.SortOrder = lvwDescending
Else
ListView1.SortOrder = lvwAscending
End If
ListView1.Sorted = True
End Sub
quelqu'un pourrait m'aiguiller ?