[VBA-A]Fonction percentile ou quartile

**jeronimo** · 07/02/2006, 21h07

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

**random** · 08/02/2006, 08h10

\.25

**jeronimo** · 08/02/2006, 09h03

Merci, mais ça ne fonctionne pas "Type de données incompatible dans l'expression du critère"

**AlainTech** · 08/02/2006, 21h03

Envoyé par dans une autre message jeronimo

Débutant vba
Quelqu'un peut-il me préciser les valeurs permises par ce bout de code ?
Ou encore m'expliquer les "" &_ dans le code
FNAME = nom du champ
TName = nom de la table

Grand merci

Code :

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

1
2
3
4
XPercentile = DMin(FName, TName, _ 
                "DCount(""*"", """ & TName & """, """ & FName & _ 
             "<="" & [" & FName & " ]) >= " & _ 
             X * DCount("*", TName))

Le & est l'opérateur de concaténation de chaînes de caractères.

Le _ est utilisé pour passer à la ligne la suite de l'instruction. N'est utilisé que pour la lisibilité du code.