Obtenir le rang en VB
landrypro
Messages postés
11
Date d'inscription
lundi 28 juillet 2008
Statut
Membre
Dernière intervention
19 janvier 2011
-
29 oct. 2008 à 13:19
BzhRico Messages postés 5 Date d'inscription mercredi 25 février 2004 Statut Membre Dernière intervention 30 octobre 2008 - 29 oct. 2008 à 16:02
BzhRico Messages postés 5 Date d'inscription mercredi 25 février 2004 Statut Membre Dernière intervention 30 octobre 2008 - 29 oct. 2008 à 16:02
A voir également:
- N nb nb n b vb v b
- Vb vba ✓ - Forum VB.NET
- La différence entre vb6 et VBA? ✓ - Forum Visual Basic
- Vba sendkeys ctrl+v - Forum Visual Basic
- Vb n ✓ - Forum Visual Basic 6
- Ctrl v et ctrl c dans keyPress ✓ - Forum Visual Basic
1 réponse
BzhRico
Messages postés
5
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
30 octobre 2008
29 oct. 2008 à 16:02
29 oct. 2008 à 16:02
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...
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...
