D
Denis
Guest
Bonjour à tous
ci-dessous une petite séquence de tri pour trier vos combo & ListB quel que soit le nombre de colonne et triable sur une colonne choisie.
'à mettre dans un module
Public Function TriListe(Liste, NbCol, ColRéf)
For i = LBound(Liste) To UBound(Liste)
For ii = i + 1 To UBound(Liste)
If Liste(i, ColRéf) > Liste(ii, ColRéf) Then
For iii = 0 To NbCol - 1
Temp1 = Liste(ii, iii)
Liste(ii, iii) = Liste(i, iii)
Liste(i, iii) = Temp1
Next
End If
Next ii
Next i
TriListe = Liste
End Function
'ligne d'appel dans le formulaire après avoir rempli le Controle
Me.ListBox1.List = TriListe(Me.ListBox1.List, 3, 0) 'controle à trier, Nombre de colonnes, Colonne de référence de tri
Bon amusement à tous
ci-dessous une petite séquence de tri pour trier vos combo & ListB quel que soit le nombre de colonne et triable sur une colonne choisie.
'à mettre dans un module
Public Function TriListe(Liste, NbCol, ColRéf)
For i = LBound(Liste) To UBound(Liste)
For ii = i + 1 To UBound(Liste)
If Liste(i, ColRéf) > Liste(ii, ColRéf) Then
For iii = 0 To NbCol - 1
Temp1 = Liste(ii, iii)
Liste(ii, iii) = Liste(i, iii)
Liste(i, iii) = Temp1
Next
End If
Next ii
Next i
TriListe = Liste
End Function
'ligne d'appel dans le formulaire après avoir rempli le Controle
Me.ListBox1.List = TriListe(Me.ListBox1.List, 3, 0) 'controle à trier, Nombre de colonnes, Colonne de référence de tri
Bon amusement à tous
Dernière modification par un modérateur:
