Moyenne suivants variables en VBA

[famu]

Bonjour à tous,
J'aimerais, avec une macro, calculer une moyenne suivant 2 variables de dates (du 05/09/2008 au 20/09/2008 par exemple) Attention ces dates sont à considérées comme variables.
Je joint un fichier pour être plus clair.
Merci pour votre aide,
Famu.

 

[CBernardT]

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

 

[porcinet82]

Re : Moyenne suivants variables en VBA

Salut,

Une solution par macro :

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

@+

 

[famu]

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

 

[jp14]

Re : Moyenne suivants variables en VBA

Bonjour

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

A tester

JP

 

[famu]

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