Discussion :

[20100.]

bonjour,

je veux faire effectuer un calcul au sein de la boucle plutôt que par excel pour ne pas garder la formule en mémoire ensuite. J'écris donc

Code :

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

ActiveSheet.Cells(i, 4).Value = ActiveSheet.Cells(i - 1, 2).Value + (ActiveSheet.Cells(i, 2).Value - ActiveSheet.Cells(i - 21, 2).Value) / 20

Et excel m'annonce une erreur 13 : erreur de type. Je n'arrive pas vraiment à comprendre pourquoi. Si quelqu'un voit le problème...

Merci !

[pgz]

Bonjour.

L'erreur vient peut-être du contenu des cellules et pas de la formule...

Par ailleurs, et pour info, tu peux aussi écrire ta ligne

Code :

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

1
2
3
With ActiveSheet
.Cells(i, 4).Value = .Cells(i - 1, 2).Value + (.Cells(i, 2).Value - .Cells(i - 21, 2).Value) / 20
End with

Bon courage,

PGZ

[20100.]

effectivement la toute première cellule était mal prévue.