Cette fonction permet de répartir les valeurs présentent dans un champ, avec 4 échelons (très pratique pour faire une légnede). Problème elle accepte 0 echelon plancher, 1 echelon plafond, et 0,5 echelon du milieu. Mais il manque deux échelons qui ne sont pas 0,25 et 0,75 ?

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function XPercentile(FName As String, _
                                    TName As String, _
                                    X As Double) _
                                    As Double
'   FName = Nom du champ
'   TName = Nom de la table
'   x = percentile décimal (0.68 for 68%)
 
'   Retourne la valeur minimale pour laquelle
'   x% des valeurs y sont inférieures ou égales
 
    XPercentile = DMin(FName, TName, _
                "DCount(""*"", """ & TName & """, """ & FName & _
             "<="" & [" & FName & " ]) >= " & _
             X * DCount("*", TName))
End Function