erreur 13

[maneos]

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

 

[hbenalia]

Re : erreur 13

Bonjour,

Le code que vous avez écris est correct, l'erreur est l'une (ou plusieurs) des valeurs dans le tableau n'est pas ou ne sont pas du type nombre(s)... (Vérifiez dans le tableau surtout les colonnes 2 et 6 de la ligne 8 à la ligne 21 s'il n'y a pas une cellule vide, si vide remplir par 0)

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