XL 2010 Filtrer par premiers chiffres sur listbox

Dudu2 à dit:

Bonjour,

VB:

'-------------------------------------------------------
'Tri QuickSort Boisgontier
'http://boisgontierj.free.fr/pages_site/tableaux.htm#Tri
'Exemple: Call TriT1D(t, LBound(t), UBound(t))
'-------------------------------------------------------
Sub TriT1D(a, gauc, droi, Optional sens = 1) ' Quick sort
    Dim ref, g, d, temp
    ref = a((gauc + droi) \ 2)
    g = gauc: d = droi
    Do
        If sens > 0 Then
            Do While a(g) < ref: g = g + 1: Loop
            Do While ref < a(d): d = d - 1: Loop
        Else
            Do While a(g) > ref: g = g + 1: Loop
            Do While ref > a(d): d = d - 1: Loop
        End If
        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 TriT1D(a, g, droi, sens)
    If gauc < d Then Call TriT1D(a, gauc, d, sens)
End Sub

Code:

'------------------------------------------------------------------
'Tri QuickSort Boisgontier
'http://boisgontierj.free.fr/pages_site/tableaux.htm#Tri2DSansIndex
'Exemple: Call TriT2D(tt, 1, LBound(tt, 1), UBound(tt, 1))
'------------------------------------------------------------------
Sub TriT2D(a, ColTri, gauc, droi, Optional sens = 1) ' Quick sort
    Dim ref, g, d, k, temp
    ref = a((gauc + droi) \ 2, ColTri)
    g = gauc: d = droi
    Do
        If sens > 0 Then
            Do While a(g, ColTri) < ref: g = g + 1: Loop
            Do While ref < a(d, ColTri): d = d - 1: Loop
        Else
            Do While a(g, ColTri) > ref: g = g + 1: Loop
            Do While ref > a(d, ColTri): d = d - 1: Loop
        End If
        If g <= d Then
            For k = LBound(a, 2) To UBound(a, 2)
                temp = a(g, k): a(g, k) = a(d, k): a(d, k) = temp
            Next k
            g = g + 1: d = d - 1
        End If
    Loop While g <= d
    If g < droi Then Call TriT2D(a, ColTri, g, droi, sens)
    If gauc < d Then Call TriT2D(a, ColTri, gauc, d, sens)
End Sub

Cliquez pour agrandir...

Dudu2 à dit:

Je ne sais pas comment tu charges la ListBox mais en prenant dans mon répertoire TEST, les fichiers y sont 2 fois car tu fais 2 fois remplissage_combo cheminPDF.
Sinon j'ai inclus le module dans ton code. J'ai dû y faire quelques modifs.
Le Click pour visionner a été remplacé pour DblClick en {Enter} car l'évènement ListBox_Click() se déclenche sur d'autres actions qu'un Clic souris et cela interfère avec mon code.

Cliquez pour agrandir...