Moyenne mobile centrée en VBA

Bonsoir

J’essaye de réaliser une petite macro pour calculer la moyenne mobile en prenant la moyenne des 4 valeurs décaler d’une ligne au début et à la fin de la colonne E

E3 =MOYENNE(B2:B5)

E4 =MOYENNE(B3:B6)

E5 = =MOYENNE(B4:B7)

…

Et la moyenne mobile centrée à partir des moyennes mobiles décaler de deux lignes au début et à la fin de la colonne F

F4 = =MOYENNE(E3:E4)

F5 = =MOYENNE(E4:E5)

…

J’essaye de transcrire ses formules en VBA mais ça ne marche pas, j’obtiens le même résultat . j’ai utilisé une boucle et je n’arrive pas é décaler d’une ligne de chaque coté, est-ce difficile à faire !

Merci pour votre aide

Bien cordialement

Bonsoir,

Peut-être à régler

2 solutions, l'une en formule, l'autre en Dur

Sub EssaiFormules()
Dim Lg&, i%
Lg = Range("a" & Rows.Count).End(xlUp).Row
    For i = 2 To Lg
        Cells(i, "c") = "=AVERAGE(b" & i & ":b" & i + 3 & ")"
        Cells(i, "d") = "=AVERAGE(c" & i - 1 & ":c" & i & ")"
    Next i
End Sub

Sub EssaiDur()
Dim Lg&, i%
Lg = Range("a" & Rows.Count).End(xlUp).Row
    For i = 2 To Lg
        Cells(i, "c") = Application.Average(Cells(i, "b").Resize(4, 1))
        Cells(i, "d") = Application.Average(Cells(i - 1, "c").Resize(2, 1))
    Next i
End Sub

Amicalement

Claude