Moyenne suivants variables en VBA

CBernardT

XLDnaute Barbatruc

• 21 Octobre 2008

• #2

Re : Moyenne suivants variables en VBA

Bonjour Famu,

Un essai par la formule suivante :

=SOMMEPROD(($A$2:$A$81>=$G$5)*($A$2:$A$81<=$I$5)*($C$2:$C$81))/SOMMEPROD(($A$2:$A$81>=$G$5)*($A$2:$A$81<=$I$5)*($B$2:$B$81))*8

Cordialement

Bernard

 

Dernière édition: 21 Octobre 2008

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 21 Octobre 2008

• #3

Re : Moyenne suivants variables en VBA

Salut,

Une solution par macro :

Code:

Sub test()
Dim heure As Double, qtt As Double
For i = 2 To Range("A65536").End(xlUp).Row
    If Cells(i, 1).Value >= Range("G5").Value And Cells(i, 1).Value <= Range("I5").Value Then
        heure = heure + Cells(i, 2).Value
        qtt = qtt + Cells(i, 3).Value
    End If
Next i
Range("J5").Value = qtt / heure * 8
End Sub

@+

 

Vote positif 0 Vote négatif

F

famu

XLDnaute Occasionnel

• 21 Octobre 2008

• #4

Re : Moyenne suivants variables en VBA

Merci Bernard et merci Romain.
J'ai copié/collé le script de Romain et ça marche à merveille. Vous êtes vraiment forts!
Très bonne journée à vous,
Famu

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 21 Octobre 2008

• #5

Re : Moyenne suivants variables en VBA

Bonjour

Ci joint une solution qui combine VBA et fonction : fonction personnalisée.

A tester

JP

 

Pièces jointes

• Moyenne suivant variables.zip

  9.7 KB · Affichages: 13
• Moyenne suivant variables.zip

  9.7 KB · Affichages: 14
• Moyenne suivant variables.zip

  9.7 KB · Affichages: 14

Vote positif 0 Vote négatif

F

famu

XLDnaute Occasionnel

• 21 Octobre 2008

• #6

Re : Moyenne suivants variables en VBA

Merci aussi JP mais, j'avoue, je n'y comprends rien. Bien trop compliqué pour moi.
Du bon travail!
A+
Famu

 

Vote positif 0 Vote négatif