Discussion :

[anto520]

Bonjour,

J'ai besoin d'aide pour faire un calcul avec Excel 2003 : j'ai une colonne avec 1000 valeurs (B3:B1002) et je cherche à obtenir directement en B2 (sans créer une nouvelle colonne de calcul) le maximum des moyennes glissante sur 6 lignes de B3 à B1002.

Merci de votre aide.

[EngueEngue]

Je ne vois pas comment le faire si ce n'est par fonction personnalisée...

A adapter...

Mets ça dans un module et tape en B2

Code :

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

=MovingAvg(B3)

Code :

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

1
2
3
4
5
6
7
8
9
Function MovingAvg(x As Range) As Double
Dim tablo(0 To 1000) As Double
ligne = x.Row
colonne = x.Column
For i = ligne To Cells(Rows.Count, colonne).End(xlUp).Row -6
tablo(i - ligne) = Application.WorksheetFunction.Average(Range(Cells(i, colonne), Cells(i + 6, colonne)))
Next i
MovingAvg = Application.WorksheetFunction.Max(tablo)
End Function

[sbiledsi]

Salut,

par curiosité j'ai essayé avec la formule suivante mais ça ne fonctionne pas :

Code :

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

{=MAX(AVERAGE(OFFSET($B$2;ROW($B$3:$B$1002)-ROW($B$2);0;6;1)))}

Pourtant la formule matricielle sans le max donne les bonnes valeurs semble-t-il, mais on obtient #N/A dès qu'on ajoute le max. Quelqu'un a-t-il une idée de pourquoi ? Et accessoirement une solution sans utiliser de macro ?

[Daniel.C]

Bonjour,

J'ai cherché avec une formule voisine, mais j'obtiens seulement la moyenne de la plage :

Code :

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

=MAX(MOYENNE(DECALER($B$3:B8;LIGNE(A1:A994)-1;0)))

Je mets la question sous le dessous de la pile