Discussion :

[cobra38]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...
Merci par avance

A+

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Public Sub TriDecr(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 'ici
      G = G + 1
   Loop
   Do While Ref > Tableau(D) 'et ici
      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 TriDecr Tableau, G, R
If L < D Then TriDecr Tableau, L, D
End Sub

[cobra38]

Nickel mercatog

merci mille fois
çà marche

A+ et Bon WE