probléme de débogage Fermé

Question

Bonjour, 
merci de m'aider à résoudre ce probléme sur VBA le plus tot possible , un msg "erreur 6" 
voilà mon code:

Sub exo3tv()
Dim i As Integer
Dim j As Integer
For i = 4 To 114
Cells(i, 4).Value = Cells(i, 3).Value - Cells(i + 1, 3).Value
Next i
For i = 4 To 114
Cells(i, 5).Value = ((1 / (1 + Cells(1, 2).Value)) ^ (Cells(i, 2).Value)) * Cells(i, 3).Value
Next i
For i = 4 To 114
Cells(i, 6).Value = ((1 / (1 + Cells(1, 2).Value)) ^ (Cells(i, 2).Value + 1)) * Cells(i, 4).Value
Next i
For i = 4 To 114
Cells(i, 7).Value = Cells(i, 6).Value
For j = i To 114
Cells(i, 7).Value = Cells(j + 1, 6).Value + Cells(i, 7).Value
Next j
Next i
For i = 4 To 114
Cells(i, 8).Value = Cells(i, 7).Value / Cells(i, 5).Value
Next i
For i = 4 To 114
Cells(i, 9).Value = (Cells(i, 7).Value - Cells(i + Cells(2, 2).Value, 7).Value) / Cells(i, 5).Value
Next i
For i = 4 To 114
Cells(i, 10).Value = Cells(i + Cells(2, 2).Value, 5).Value / Cells(i, 5).Value
Next i
For i = 4 To 114
Cells(i, 11).Value = Cells(i, 9).Value + Cells(i, 10).Value
Next i

Cells(3, 4).Value = "dx"
Cells(3, 5).Value = "Dx"
Cells(3, 6).Value = "Cx"
Cells(3, 7).Value = "Mx"
Cells(3, 8).Value = "Ax"
Cells(3, 9).Value = "Ax1:n"
Cells(3, 10).Value = "nEx"
Cells(3, 11).Value = "Ax:n"

End Sub

Configuration: Windows 8 / Chrome 47.0.2526.106

gbinforme · Answer

Bonjour, 

Cela est dû a tes divisions :
Cells(i, 8).Value = Cells(i, 7).Value / Cells(i, 5).Value

Il te faut tester que ton diviseur est différent de zéro
If Cells(i, 5).Value <> 0 Then
    Cells(i, 8).Value = Cells(i, 7).Value / Cells(i, 5).Value
Else
    Cells(i, 8).Value = ?
End If

Patrice33740 · Answer

Bonjour

Cette erreur est provoquée par une division par zéro (...Value / Cells...).
Il faut tester la valeur des diviseurs et ne faire les opérations que s'ils sont différents de zéro.

Probléme de débogage

2 réponses

Discussions similaires