OVH Cloud OVH Cloud

CALCUL DANS ACCESS

4 réponses
Avatar
GUILLERMIN YVES
COMMENT PEUT -ON CALCULER LA SOMME DE CINQ NOMBRE POSITIFS
EN ELIMINANT DE CETTE SOMME LA NOTE LA PLUS HAUTE ET LA
NOTE LA PLUS BASSE
MERCI DE ME REPONDRE
yves.guillermin@wanadoo.fr

4 réponses

Avatar
J-Pierre
Tiens, ça me plait, ça, je prends......

Dans une requête avec regroupement:

resultat : Sum([champ]) - Max([champ]) - Min([champ])

J-Pierre

"GUILLERMIN YVES" a écrit dans le message de news:006d01c3aecc$61d97af0$
COMMENT PEUT -ON CALCULER LA SOMME DE CINQ NOMBRE POSITIFS
EN ELIMINANT DE CETTE SOMME LA NOTE LA PLUS HAUTE ET LA
NOTE LA PLUS BASSE
MERCI DE ME REPONDRE




Avatar
3stone
Salut,

"J-Pierre"
Tiens, ça me plait, ça, je prends......



Chiche que ces nombres sont dans le même enregistrement...

;-)



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

Avatar
J-Pierre
Ca ne me surprendrait pas, avec ses idées saugrenues......
Tu remarqueras que malgré mes réticences à son égard, j'ai répondu....

Ca s'appelle l'esprit MPFA, que tu m'inculquas avec infiniment de patience....

J-Pierre - Expert en flagornerie

"3stone" a écrit dans le message de news:3fbbcee4$0$16834$
Salut,

"J-Pierre"
Tiens, ça me plait, ça, je prends......



Chiche que ces nombres sont dans le même enregistrement...

;-)



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------







Avatar
3stone
Salut,

"GUILLERMIN YVES"
COMMENT PEUT -ON CALCULER LA SOMME DE CINQ NOMBRE POSITIFS
EN ELIMINANT DE CETTE SOMME LA NOTE LA PLUS HAUTE ET LA
NOTE LA PLUS BASSE



Si tes nombres sont dans les champs d'un même enregistrement, utilise une fonction.
Elle te donne le total, moins les deux extrêmes, quelque soit le nombre de champs
que tu transmette.

Crée un nouveau module (onglet Module) et colle la fonction ci-dessous.
Enregistre-la sous mod_MesCalculs, par exemple.

Dans ta requête, tu crée un champ calculer...

Resultat: HorsExtreme([champ1];[champ2];[champ3];[champ4];[champ5])


'------ début de la fonction à coller ----------

Function HorsExtreme(ParamArray Valeurs() As Variant)
Dim intVar As Integer
Dim varMax As Variant
Dim varMin As Variant
Dim Total As Double
'Cherche le plus grand
For intVar = 0 To UBound(Valeurs())
Total = Total + Valeurs(intVar)
If Valeurs(intVar) > varMax Then varMax = Valeurs(intVar)
Next intVar

varMin = varMax

'Cherche le plus petit
For intVar = 0 To UBound(Valeurs())
If Valeurs(intVar) < varMin Then varMin = Valeurs(intVar)
Next intVar

HorsExtreme = Total - varMin - varMax

End Function

'------ fin -----------------------------------


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------