Discussion :

[rsoul]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[zazaraignée]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[rsoul]

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,

[rsoul]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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