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
"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
"GUILLERMIN YVES" <anonymous@discussions.microsoft.com> a écrit dans le message de news:006d01c3aecc$61d97af0$a501280a@phx.gbl...
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
"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
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 --------------------------------------
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
--------------------------------------
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 --------------------------------------
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 --------------------------------------
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" <3stone@skynet.be> a écrit dans le message de news:3fbbcee4$0$16834$ba620e4c@reader3.news.skynet.be...
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
--------------------------------------
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 --------------------------------------
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.
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 --------------------------------------
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.
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
--------------------------------------
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.
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 --------------------------------------