M
maneos
Guest
Bonjour,
Je ne comprend pas ou peut être mon erreur .... Est ce que quelqu'un a une idée ?
Sub semaine()
Dim i As Integer, j As Integer
For j = 6 To 182 Step 4
For i = 8 To 21
If Cells(i, j).Value <> 0 Then
Cells(i, j + 1) = Cells(i, 2) - Cells(i, j)
Else
If Cells(i, j).Value = 0 Then
Cells(i, j + 1) = "non mesurée"
Else
Cells(i, j) = ""
End If
End If
Next i
Next j
End Sub
VB excel me dit que j'ai une erreur de type 13 : incompatibilitré de type.
Merci beaucoup !🙂
Je ne comprend pas ou peut être mon erreur .... Est ce que quelqu'un a une idée ?
Sub semaine()
Dim i As Integer, j As Integer
For j = 6 To 182 Step 4
For i = 8 To 21
If Cells(i, j).Value <> 0 Then
Cells(i, j + 1) = Cells(i, 2) - Cells(i, j)
Else
If Cells(i, j).Value = 0 Then
Cells(i, j + 1) = "non mesurée"
Else
Cells(i, j) = ""
End If
End If
Next i
Next j
End Sub
VB excel me dit que j'ai une erreur de type 13 : incompatibilitré de type.
Merci beaucoup !🙂