Classer une collection d'une custom class

Bonjour,

J'ai cette classe en VBA

Code:

1
2
Public pName As String
Public pPrice As Double

J'ai egalement une liste d'ojets de cette classe que je souhaiterai classer par le prix.

J'ai essaye ce code (Un Bubble Sort) mais sans succees :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim vTemp As Product
Dim vItm As Product
Dim Products As Collection
For i = 1 To Products.Count - 1
        For j = i + 1 To Products.Count
            If Losers(i).pPrice> Losers(j).pPrice Then
                'store the lesser item
                'Set vTemp = New Product
                Set vTemp = Products(j)
                'remove the lesser item
                Products.Remove j
                're-add the lesser item before the
                'greater Item
                Products.Add vTemp
                'Set vTemp = Nothing
            End If
        Next j
    Next i

J'ai egalement essaye un HeapSort qui marche su une collection de type string ou int mais ne marche pas avec la classe que j'ai cree.

Avez vous une solution ? Merci