Opérateur de comparaison modifiable par le code

Bonjour,

Dans un algorithme de tri à bulle tout repose sur une condition :

Code:

---

If (tab(i) > tab(i+1) ' pour un tri croissant

---

et

Code:

---

If (tab(i) < tab(i+1) ' pour un tri décroissant

---

Je suis en train de bâtir une fonction

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Enum SortStyle ASC DESC End Enum   Private sub tri(ByVal SensduTri as SortStyle)   If SensduTri = SortStyle.ASC then comparateur = ">" If SensduTri = SortStyle.DESC then comparateur = "<"   '... algorithme du tri à bulle   End Sub

---

La question est de savoir comment "paramétrer" la condition du tri à bulle pour ne pas avoir à écrire le contenu de l'algo 2 fois.

J'ai trouvé une solution satisfaisante même si ce n'est pas ce que j'avais imaginé au départ :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private sub tri(ByVal SensduTri as SortStyle)   Dim condition As Boolean Select Case SensduTri Case SortStyle.ASC condition = (tab(i) > tab(i+1)) Case SortStyle.DESC condition = (tab(i) < tab(i+1)) End Select If condition then ...

---