Discussion :

[Pierrr]

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) :


Merci beaucoup de votre aide !

[deedolith]

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.

[ARTURO83]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sinon en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cdlt