Tri décroissant dans une combobox
Bonjour le forum
Avec votre aide , j'utilise cette procédure pour trier une "ComboBox"
dans l'ordre croissant .
cette routine fonctionne très bien mais devant le nombre de lignes
actuellement disponible dans la liste , cela devient fastidieux pour l'utilisateur d'aller en fin de liste pour choisir la donnée
le principe serait donc de trier cette liste dans l'ordre décroissant
je joins la routine car je ne vois pas le principe à appliquer
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
Public Sub Tri(Tableau, L As Integer, R As Integer)
Dim G As Integer, D As Integer
Dim Ref, temp
Ref = Tableau((L + R) \ 2)
G = L
D = R
Do
Do While Tableau(G) < Ref
G = G + 1
Loop
Do While Ref < Tableau(D)
D = D - 1
Loop
If G <= D Then
temp = Tableau(G)
Tableau(G) = Tableau(D)
Tableau(D) = temp
G = G + 1
D = D - 1
End If
Loop While G <= D
If G < R Then Tri Tableau, G, R
If L < D Then Tri Tableau, L, D
End Sub |
Votre aide me serait précieuse ...:oops:
Merci par avance
A+
