Calcul d'une moyenne géométrique pondérée

[anthony.unac]

Bonjour,
Existe t il un moyen simple de calculer une moyenne géométrique pondérée ?
J'ai repéré la fonction Moyenne.Geometrique() mais pas de pondération hélas ?!

 

[job75]

Bonsoir anthony.unac,

Plusieurs définitions de cette moyenne sont possibles.

Donnez nous la formule que vous voulez utiliser pour la calculer.

A+

 

[anthony.unac]

Bonjour,
Cette moyenne est ainsi définie : https://slideplayer.fr/slide/10683826/37/images/49/La+moyenne+géométrique+mg.jpg
Mais il semblerait qu'il n'y ait pas de fonction prédinie dans excel pour la calculer.

 

[Dranreb]

Bonjour.
J'ignore si on peut simplifier, mais sur un exemple en A1:B3 cette formule validé par Ctrl+Maj+Entrée :

=EXP(SOMME(LN(A$1:A$3)*$B$1:$B$3)/SOMME(B1:B3))

…donne le même résultat que celle ci :

=(A$1^$B$1*A$2^$B$2*A$3^$B$3)^(1/SOMME($B$1:$B$3))

 

[anthony.unac]

Effectivement, il y a cette définition analogue à base de logarithme et d'exponentielle. Mais l'un dans l'autre, on est obligé de se cogner la formule entière en suivant formellement la définition. Je m'attendais à un truc simple et prédéfinie du style une fonction Moyenne.Geometrique.Pond(valeurs,poids) ou pour reprendre votre exemple Moyenne.Geometrique.Pond(A1:A3,B1:B3) mais ceci ne semble pas exister ;(

 

[Dranreb]

Suggestion: écrivez vous la :

Function MoyGéoPond(ByVal Valeurs, ByVal Poids) As Double
   Dim L As Long, SP As Double
   If TypeOf Valeurs Is Range Then Valeurs = Valeurs.Value
   If TypeOf Poids Is Range Then Poids = Poids.Value
   For L = 1 To UBound(Valeurs, 1)
      MoyGéoPond = MoyGéoPond + Log(Valeurs(L, 1)) * Poids(L, 1)
      SP = SP + Poids(L, 1): Next L
   MoyGéoPond = Exp(MoyGéoPond / SP)
   End Function

=MoyGéoPond(A1:A3;B1:B3)

 

[anthony.unac]

Merci pour le code, j'essaierai ça mais je reste surpris qu'un logiciel comme excel ne contienne pas de fonction prédéfinie de ce type.

 

[pierrejean]

Bonjour à tous

Fonction personnalisée réalisée à partir de la formule de Dranreb
Edit : je n'avais pas vu la solution de Dranreb

 

[job75]

Bonjour à tous,

Je m'attendais à un truc simple et prédéfinie du style une fonction Moyenne.Geometrique.Pond(valeurs,poids)

Eh oui une telle fonction n'existe pas, pas plus qu'il n'existe de fonction MOYENNE.POND.

Et tant mieux, comme ça on peut s'amuser.

A+

 

[job75]

Re,

Formule pour moyenne (normale) pondérée => =SOMMEPROD(A1:A3*B1:B3)/SOMME(B1:B3)

Formule pour moyenne géométrique pondérée => =PRODUIT(A1:A3^B1:B3)^(1/SOMME(B1:B3))

Cette dernière est matricielle et donc à valider par Ctrl+Maj+Entrée.

A+

 

[anthony.unac]

Un grand merci à l'ensemble des participants