Salut à tous,
j'ai un petit soucis, je cherche à faire une moyenne mobile. Pour ce faire, je dois faire la moyenne de 12 cellule et la renvoyer dans une cellule, ensuite j'aimerais incrémenter pour faire la moyenne de 12 valeurs en démarrant à la 2ème.
Cependant, dans mon code, seule une valeur m'est renvoyé sur ma feuille excel.
Voici mon code:
Function mmc(j As Integer)
Dim i As Integer
Dim sommemmc, mmc2 As Double
For i = 1 To 12
sommemmc = sommemmc + cells(j + i, 2).Value
Next
mmc2 = sommemmc / 12
cells(55, 2) = mmc2
End Function
Sub MoyenneMob()
Dim i As Integer
Dim j As Integer
For i = 1 To 28
cells(53 + i, 2) = mmc(i)
Next
Next
End Sub
Si quelqu'un sait regler mon problème,
merci d'avance !
j'ai un petit soucis, je cherche à faire une moyenne mobile. Pour ce faire, je dois faire la moyenne de 12 cellule et la renvoyer dans une cellule, ensuite j'aimerais incrémenter pour faire la moyenne de 12 valeurs en démarrant à la 2ème.
Cependant, dans mon code, seule une valeur m'est renvoyé sur ma feuille excel.
Voici mon code:
Function mmc(j As Integer)
Dim i As Integer
Dim sommemmc, mmc2 As Double
For i = 1 To 12
sommemmc = sommemmc + cells(j + i, 2).Value
Next
mmc2 = sommemmc / 12
cells(55, 2) = mmc2
End Function
Sub MoyenneMob()
Dim i As Integer
Dim j As Integer
For i = 1 To 28
cells(53 + i, 2) = mmc(i)
Next
Next
End Sub
Si quelqu'un sait regler mon problème,
merci d'avance !