"L'indice n'appartient pas à la sélection"

[teammurc]

Bonjour forum,
Je rencontre un soucis avec mon code, censé calculer un écart-type tout simple. "L'indice n'appartient pas à la sélection". J'ai vu qu'il y avait d'autres discussions sur le sujet mais elles ne m'aident pas. Je vous joins le code avec la ligne qui pose problème ainsi que le fichier excel .
Merci d'avance le forum!

Sub VolH()
Sheets("Volatility").Activate

Dim R(1 To 86) As Single
Dim VH(1 To 37) As Single


For i = 1 To 86
R(i + 1) = Log(Cells(i + 6, 4) / Cells(i + 5, 4))
Next i

Sum = 0
For i = 1 To 86
Sum = Sum + R(i)
Next i
Mean = Sum / 86


avg = Mean(86, R)
For i = 1 To 86
SumSq = SumSq + (R(i) - avg) ^ 2
Next i
StdDev = Sqr(SumSq / 85)

For i = 1 To 37
VH(i + 1) = StdDev(R(1 + i), R(91 + i))
Next i

Range("H6 : H43") = VH(i)

End Sub

 

[Roland_M]

Re : "L'indice n'appartient pas à la sélection"

bonsoir

je vois ceci > R(i + 1)
mais dans la boucle For i = 1 To 86
quand I=86
R(i + 1) soit 87 !? erreur !
c'est R(i)

Sub VolH()
Sheets("Volatility").Activate
Dim R(1 To 86) As Single
Dim VH(1 To 37) As Single
For i = 1 To 86
R(i + 1) = Log(Cells(i + 6, 4) / Cells(i + 5, 4))
Next i

 

[mapomme]

Re : "L'indice n'appartient pas à la sélection"

Bonsoir teammurc,

For i = 1 To 86
R(i + 1) = Log(Cells(i + 6, 4) / Cells(i + 5, 4))
Next i

Quand i = 86, vous faites références à R(i + 1) soit R(87). Or vous avez déclaré R comme Dim R(1 To 86) As Single.
Soit vous déclarez Dim R(1 To 87) As Single, soit vous utilisez R(i) = Log(Cells(i + 6, 4) / Cells(i + 5, 4)).