Classement en vba sans utiliser "RANK"

Bonjour à tous,

Je fais un projet vba ou j'ai besoin de réaliser u classement entre 4 nombres donnés et mon chargé de TD n'est pas trop fan des utilisations des fonctions excel dans VBA comme :
"Sub Macro2()
Range("J6").Select
ActiveCell.FormulaR1C1 = "=RANK(Perf_1,R6C9:R9C9,0)"
End Sub"

Que puis-je utiliser à la place pour faire un classemrnt entre ces 4 valeurs"

Voici une photo de ce que je désire atteindre (le classement est donc sur la colonne de droite : classement des performance) :
Pièce jointe 631703

Merci beaucoup de votre aide !

Salut,

Si tu veux faire du tri sans exploiter les fonctionnalités intégrées d'Excel (ce qui à mon avis est une erreur),
il va te falloir implémenter ton propre algorithme de tri.
On en trouve plein sur internet (tri par permutation successives, tri à bulles ect ect ....), Google est ton ami.

Bonjour,

Pourtant avec la formule, ça marche très bien

Code:

---

Range("J6:J9").FormulaR1C1 = "=RANK(Perf_1,R6C9:R9C9:R6C9:R9C9,0)"

---

Sinon en VBA

Code:

---

1 2 3

For i = 6 To 9 Cells(i, "J") = Application.WorksheetFunction.Rank(Cells(i, "I"), Range("I6:I9"), 0) Next i

---

Cdlt