Discussion :

[papesambas]

Bonjour, j'ai un problème de lenteur sur ma requête lorsque j'essaie de faire le rang des élèves. avec la fonction CpteDom voici mes instructions:

Rang: VraiFaux(Val(CpteDom("[Moy]";"[Moyenne_3eme_A_Janvier]";"[Moy]>" & Remplacer([Moy];",";"."))+1)=1;Supprespace(Val(CpteDom("[Moy]";"[Moyenne_3eme_A_Janvier]";"[Moy]>" & Remplacer([Moy];",";"."))+1))+"er";Supprespace(Val(CpteDom("[Moy]";"[Moyenne_3eme_A_Janvier]";"[Moy]>" & Remplacer([Moy];",";"."))+1))+"ème")
quelqu'un pourra t-il m'aider ?

Merci d'avance.

[micniv]

Bonjour,

Je pense que la fonction publique suivante sera plus efficace que ton code. A essayer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function rangEleve(sTblname As String, dblMoyEleve As Double) As String
    ' 2020-03-21
    ' à utiliser : = rangEleve("[Moyenne_3eme_A_Janvier]"; [Moy])
    Dim r1 As Integer
 
    r1 = DCount("*", sTblname, "[Moy] >" & Nz(dblMoyEleve, 0))
    If r1 = 0 Then
        rangEleve = "1er"
    Else
        rangEleve = (r1 + 1) & "ème"
    End If
End Function

cette fonction est à mettre dans un module STANDARD.

Pour l'utiliser dans une requete, remplace ton code ci-dessus par :

Code :

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

 rangEleve("[Moyenne_3eme_A_Janvier]"; [Moy])

cordialement