Moyenne pondérée

[Newbe]

Bonjour à tous,
Voici mon problème: J'ai deux vecteurs de même taille, l'un contenant des notes l'autre des coefficients et mon but est de créer une fonction me faisant la moyenne pondérée.
Je pourrais le faire en traitant chaque ligne de mes vecteurs une par une mais j'aimerai savoir s'il ne serait pas possible de faire ça plus rapidement. La fonction sera appelée par une macro plus lourde qui doit me calculer pas mal de moyennes.
Vous auriez une piste à me conseiller?

 

[mécano41]

Re : Moyenne pondérée

Bonjour,

Pourquoi ne pas utiliser dans la feuille? :

=SOMMEPROD(Vecteur1;Vecteur2)/SOMME(Vecteur2)

avec (Vecteur1 = les notes et Vecteur2 = les coeff.) par ex. :

=SOMMEPROD(B2:B6;C2:C6)/SOMME(C2:C6)

ou la même chose en VBA en utilisant :

=WorksheetFunction.SOMMEPROD(...

Cordialement

 

[Newbe]

Re : Moyenne pondérée

En fait j'ai besoin de creer une macro de sorte qu'on ne puisse pas modifier les formule par la suite donc je ne préfère pas utiliser les formules de la feuille.
J'ai essayé Sommeprod mais il ne semble pas prendre en compte les vecteurs

 

[mécano41]

Re : Moyenne pondérée

J'aurais dû traduire SOMMEPROD ....

Regarde le ficher joint....

Cordialement