errreur somme vba

[nicroq]

bonjour a tous

je n arrive pas a comprendre l'erreur "incompatibilité de type 13" :
Dim i As Long
Sheets("Data 1").Select
For i = 3 To Sheets("Data 1").Range("R" & Rows.count).End(xlUp).Row
Sheets("Data 1").Cells(i, 19).Value = 0.5 * (Sheets("Data 1").Cells(i, 17) + Sheets("Data 1").Cells(i - 1, 17)) / 120 + Sheets("Data 1").Cells(i - 1, 19)
Next i
End Sub

merci pour votre aide!!

 

[13GIBE59]

Re : errreur somme vba

Bonjour,

Sans fichier, pas facile à déchiffrer.
Essaie à tout hasard :

Dim i as Integer.


(En général, erreur d'execution 13 incompatibilité de type est dû à une mauvaise déclaration de variable).

Bon courage.

JB

 

[nicroq]

Re : errreur somme vba

merci !! l erreur venait bien de la !! je cherchais plus compliqué!!