Le Rang des Elèves d'une classe de 6A sous VB6

Je suis débutant et je sollicite votre aide pour avoir le code me permettant de résoudre le problème:

En effet, j'ai crée une table TablElèves sous Access contenant les champs suivants:
n°ord; nom; prénoms; note1; note2; note3; coefnote1; coefnote2; coefnote3; total; Moyenne; Appréciation; Rang.

J'ai ensuite fait la connexion via DataEnvironment1 à VB6. Je suis bloqué sur le code du Rang.:
-je veux utiliser un tableau pour afficher au fur et à mesure les différentes moyennes afin d'utiliser le code ci-dessous mais je ne sais pas le faire.

-Éclairez moi pas à pas afin que je perçoive clairement ce phénomène de tableau (Création, Remplissage et affichage d'un tableau) en VB6.

Voici ce que j'ai pu trouver mais qui ne marche:

Code:

---

1 2 3 4 5 6 7 8 9

Public Function Rang(n As Integer) As Integer Dim pos As Integer, nb As Integer Dim Moyenne() As Single nb = 1 For pos = 0 To UBound(Moyenne, 1) If Moyenne(pos) > Moyenne(n) Then nb = nb + 1 Next pos Rang = nb End Function

---

Merci énormément d'avance pour ce temps précieux que Vous m'accordez. Cela fait près de 6 mois que je cherche à résoudre ce problème.

NB: Je serai très heureux si le rang pouvait être précédé de "er" pour 1er et "ème" pour 2ème ainsi que les cas d'exquo "er ex" et "ème ex".

Salut,

Tu es sur un forum Access et non VB:

Apparemment il faut passer ton tableau en argument

Code:

---

1 2 3 4 5 6 7 8

Public Function Rang(n As Integer, Moyenne() As Single) As Integer Dim pos As Integer, nb As Integer nb = 1 For pos = 0 To UBound(Moyenne) If Moyenne(pos) > Moyenne(n) Then nb = nb + 1 Next pos Rang = nb End Function

---

A+