Z
Zorei
Guest
Bonjour je me bats depuis longtemps pour cette erreur 13 erreur type mismatch
voila la code:
Sub Calculmoy()
For i = 0 To 29
Worksheets("data").Cells(236, 6 + i) = (Worksheets("data").Cells(233, 6 + 4 * i) - Worksheets("data").Cells(233, 8 + 4 * i)) / 2Worksheets("data").Cells(237, 6 + i) = (Worksheets("data").Cells(233, 7 + 4 * i) - Worksheets("data").Cells(233, 9 + 4 * i)) / 2
Next i
End Sub
Merci de votre aide.
L'erreur me ramène à la ligne rouge.
voila la code:
Sub Calculmoy()
For i = 0 To 29
Worksheets("data").Cells(236, 6 + i) = (Worksheets("data").Cells(233, 6 + 4 * i) - Worksheets("data").Cells(233, 8 + 4 * i)) / 2Worksheets("data").Cells(237, 6 + i) = (Worksheets("data").Cells(233, 7 + 4 * i) - Worksheets("data").Cells(233, 9 + 4 * i)) / 2
Next i
End Sub
Merci de votre aide.
L'erreur me ramène à la ligne rouge.