Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 634 fois - Téléchargée 48 fois
Public Sub ArrangeList(Liste As ListBox) Dim Tbl$() Dim Ntbl$() Dim CH As Boolean ReDim Tbl(Liste.ListCount - 1) ReDim Ntbl(Liste.ListCount - 1) mtb = Liste.ListCount - 1 For n = 0 To mtb Tbl(n) = Liste.List(n) Ntbl(n) = "" Next n Liste.Clear For n = LBound(Tbl) To UBound(Tbl) For a = LBound(Tbl) To UBound(Tbl) If a >= n Then If StrComp(Tbl(n), Tbl(a), vbTextCompare) = -1 Then tx = Tbl(n) Tbl(n) = Tbl(a) Tbl(a) = tx End If End If Next a Next n For n = UBound(Tbl) To LBound(Tbl) Step -1 Liste.AddItem Tbl(n) Next n End Sub
11 juil. 2012 à 14:08
Private Sub ListBox_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)If ListBox.SortOrder lvwAscending Then ListBox.SortOrder lvwDescending Else ListBox.SortOrder = lvwAscending 'si Trie ASC alors DESC sinon ASC
ListBox.SortKey = ColumnHeader.Index - 1 'Sélectionne le numéro de l'entête de colonne
ListBox.Sorted = True 'Active le trie
End Sub
23 avril 2010 à 01:26
2 août 2009 à 02:37
9 mai 2009 à 20:26
et apré on fai l algo de permutation la case dernier avec la premier l'avant dernier avec la 2,ém et ainssi d suite,comme si on clic la premier foi ça sera d z_a 2 eme clic d a_z et ainssi d suite
24 janv. 2009 à 20:37
Merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.