BONJOUR A TOUS LE EXPERTS.
Voici j'ai un gros soucis toujours avec les combobox. Pour faire une systeme de recherche performant. J'ai trouvé un super truc sur la toile qui me permet de regler facilement le probeme. En gros c'est une procédure. Le probleme est que je ne peux pas l'adapter a mon code donc a un evenement d'un combobox voici le code.
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
 
 Sub trier(ByVal a(), ByVal gauc, ByVal droi) ' Quick sort
        Dim ref As Object, g As Long, d As Long
        Dim temp As Object
        ref = a(Int((gauc + droi) \ 2))
        g = gauc : d = droi
        Do
            Do While a(g) < ref : g = g + 1 : Loop
            Do While ref < a(d) : d = d - 1 : Loop
            If g <= d Then
                temp = a(g) : a(g) = a(d) : a(d) = temp
                g = g + 1 : d = d - 1
            End If
        Loop While g <= d
        If g < droi Then Call trier(a, g, droi)
        If gauc < d Then Call trier(a, gauc, d)
    End Sub
Est-Ce que quelqu'un a une idée. SVP ça fait longtemps que je suis bloqué au meme point est mon stage se termine bientot.
MERCI D'avance de votre aide