Moyenne Pondérée en vba

Version imprimable

Bonjour à tous ,
Je cherche à calculer une moyenne pondérée!

En m'y prenant de la facon suivant :
J'ai 2 colonnes avec des chiffres dans chacunes des cellules.
pour la ligne 1 je souhaite multiplier les 2 cellules entre elles.
Puis faire de meme pour chaque ligne de mes colonnes et additionner l'ensemble.

Enfin, je souhaite diviser le resultat obtenu par la somme de la 1ere colonne (une moyenne ponderé quoi!)

Pour l'instant je fais une moyenne simple de ma colonne!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub CalculMoyenneTerme() Application.ScreenUpdating = False Sheets("Gestion").Activate Range("N1").Select K = (Range("N1").End(xlDown).Row + 1) Formule = "=AVERAGE(" & Cells(2, 14).Address & ":" & Cells(K - 1, 14).Address & ")" Cells(K, 14).Value = Formule Application.ScreenUpdating = True End Sub
Merci pour ton aide à toi qui connait la réponse à cette question!

Pas besoin de Activate ni de Select qui ralentissent l'exécution et font clignoter inutilement l'écran...
Code:

1 2 3 4 5 6 Function CalculMoyenneTerme(valeursMoyenne As Range, valeursSomme As Range) As Double Dim laMoyenne As Double, laSomme As Double laMoyenne = Average(valeursMoyenne) laSomme = Sum(valeursSomme) CalculMoyenneTerme = laSomme / laMoyenne End Function
Tu peux même utiliser cette fonction comme formule de cellule !

C'est-y pas magique !

03/06/2008, 17h49
rsoul

Magie: je comprends plus rien!

Bonjour Zaza,

Pourrais tu me donner quelques infos sup pour l'utilisation de cette fonction?

En effet je ne sais pas trop comment l'utiliser, la remplir et l'exploiter ...

Cordialement,

Petit .

Bon finallement voici le code que j'ai utilisé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub CalculMoyenneCG()
Application.ScreenUpdating = False
 
  Sheets("Gestion").Activate
 
lDerniereLigneReelle = Range("A1").End(xlDown).Address
lDerniereLigneReelle = Range(lDerniereLigneReelle).Row
 
For I = 1 To lDerniereLigneReelle
    K = (Range("A1").End(xlDown).Row + 1)
     Formule1 = "=(" & Cells(I, 15).Address & "*" & Cells(I, 12).Address & ")"
    Cells(I, 37).Value = Formule1
Next
 
     H = (Range("N1").End(xlDown).Row + 1)
     Formule2 = "=Sum(" & Cells(2, 37).Address & ":" & Cells(K - 1, 37).Address & ")"
    Cells(K, 37).Value = Formule2
 
                G = (Range("N1").End(xlDown).Row + 1)
             Formule3 = "=Sum(" & Cells(2, 12).Address & ":" & Cells(K - 1, 12).Address & ")"
            Cells(K, 38).Value = Formule3
 
                        Cells(K, 15).Value = Cells(K, 37).Value / Cells(K, 38).Value
                        Cells(K, 15).NumberFormat = "0.0000"
 
  Application.ScreenUpdating = True
 
  End Sub

Il fonctionne très bien!

Si quelqu'un à une idée pour l'ameliorer je suis à votre écoute, sinon cette discussion passera en mode résolu d'ici peu.

Cordialement

rsoul