modifier le tri d'une combo

Version imprimable

07/11/2016, 15h31
redcedar

1 pièce(s) jointe(s)

modifier le tri d'une combo
Bonjour,
actuellement, une combo affiche les données en les triant par id croissant (colonne A du fichier Excel).
Comment les trier maintenant par une autre colonne du fichier ? (ordre alphabétique du champ NOM USAGE situé en colonne H)?

Le code actuel de la combo:
Code:

1 2 3 4 5 Private Sub cboMember_Click() CurrentRecord = Me.cboMember.ListIndex ReadRecord CurrentRecord ' Lecture de l'enregistrement sélectionné CheckButton End Sub
Je mets le code complet du formulaire en pièce jointe.
Merci d'avance.
08/11/2016, 15h35
jeanmidudu

Bonjour,

Sans regarder le code, tu auras ta réponse en utilisant l'enregistreur de macro, qui fera 99% du travail, si ce n'est qu'un simple tri.

Cdt,

1 pièce(s) jointe(s)

Bonsoir,

Le tri utilisé est le plus lent que l'on puisse imaginer (Buble Sort)!

Voir un exemple en PJ avec un tri sérieux (quuick-sort).

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
27
28
29
30
31
32
33
34
35
36
 
Option Compare Text
Private Sub UserForm_Initialize()
 ComboBox1.List = Range("A2:B" & Range("a65000").End(xlUp).Row).Value
End Sub
 
Private Sub OptionButton1_Click()
   Dim a()
   a = Me.ComboBox1.List
   Call tri(a(), LBound(a), UBound(a), 0)
   Me.ComboBox1.List = a
End Sub
 
Private Sub OptionButton2_Click()
   Dim a()
   a = Me.ComboBox1.List
   Call tri(a(), LBound(a), UBound(a), 1)
   Me.ComboBox1.List = a
End Sub
 
Sub tri(a(), gauc, droi, colTri)        ' Quick sort
 ref = a((gauc + droi) \ 2, colTri)
 g = gauc: d = droi
 Do
     Do While a(g, colTri) < ref:  g = g + 1: Loop
     Do While ref < a(d, colTri): d = d - 1: Loop
     If g <= d Then
       For c = LBound(a, 2) To UBound(a, 2)
         temp = a(g, c): a(g, c) = a(d, c): a(d, c) = temp
       Next
       g = g + 1: d = d - 1
     End If
 Loop While g <= d
 If g < droi Then Call tri(a, g, droi, colTri)
 If gauc < d Then Call tri(a, gauc, d, colTri)
End Sub

Boisgontier
http://boisgontierjacques.free.fr