Calcul d'une moyenne en VBA

[baptbapt]

Ceci est ma macro de base qui me servait a faire une somme sur 10 minutes,
pour faire la moyenne sur 10 minutes, il faut donc que je divise par 10?

Dim a As Integer
Dim totala As Long
Dim inda As Integer
Dim liga As Integer

liga = 9
inda = 4
totala = 0
For b = 1 To 86
' en fonction du nombre de valeurs à cumuler
For a = 1 To 10
totala = totala + Range("P" & a + inda).Value
totala=totala/10 <---- ajout pour moyenne
Range("Q" & liga).Value = totala
Next a
inda = inda + 1
liga = liga + 1
totala = 0
Next b

 

[lapix]

Re : Calcul d'une moyenne en VBA

Ceci est ma macro de base qui me servait a faire une somme sur 10 minutes,
pour faire la moyenne sur 10 minutes, il faut donc que je divise par 10?

Dim a As Integer
Dim totala As Long
Dim inda As Integer
Dim liga As Integer

liga = 9
inda = 4
totala = 0
For b = 1 To 86
' en fonction du nombre de valeurs à cumuler
For a = 1 To 10
totala = totala + Range("P" & a + inda).Value <---- la tu additionnes...
totala=totala/10 <---- ajout pour moyenne <-----il faut a mon avis sortir ca de la boucle for
Range("Q" & liga).Value = totala <-------- a sortir aussi
Next a
inda = inda + 1
liga = liga + 1
totala = 0
Next b

si tu veux une moyenne il faut d'abord tout ajouter avant de diviser

 

[porcinet82]

Re : Calcul d'une moyenne en VBA

re baptbapt, Salut lapix,

Heu... Je suis comme lapix, je suis un peu perplexe sur ce que tu veux faire. Est-ce que tu as essayer de lancer ta macro? Les résultats sont un peu bidons.
De plus, je ne comprends meme pas ce que tu veux faire comme moyenne. Tu utilises 2 boucles et je ne comprends pas tres bien pourquoi.
Donne nous plus d'info sur ce que tu veux faire pour qu'on puisse t'aider.

@+

 

[ERIC S]

Re : Calcul d'une moyenne en VBA

re

peut-être une piste

WorksheetFunction, propriété

Voir aussiS'applique àExempleDétails
Cette propriété renvoie l'objet WorksheetFunction. En lecture seule.
Exemple

Cet exemple montre comment afficher le résultat obtenu après application de la fonction de feuille de calcul Min à la plage A1:A10.
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer