Bonjour,
Je n'ai pas connaissance d'une fonction de calcul de rang automatique en VB.
Par contre, une simple boucle doit pouvoir répondre à ton besoin, en comptabilisant le nombre de cas, répondant à tes critères, dont la note est supperieure ou inférieure à la note de référence.
ex: Note(0 à 5) = { 6; 5; 9; 4; 6; 3 }
Public Function Rang(n As Integer) As Integer
Dim Pos As Integer, Nb As Integer
Nb = 1
For Pos = 0 To UBound(Note, 1)
If Note(Pos) > Note(n) Then Nb = Nb + 1
Next Pos
Rang = Nb
End Function
Résultat:
Rang(1)=4
Rang(2)=1
En espérant avoir répondu à la question...
|