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!!
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!!