division par zéro

[derkoo410]

Bonjour

Je souhaiterai savoir comment puis-je éviter l´arrêt d´une macro de calculs provoqué par l´erreur 11 qui correspond à celui d´une division par zéro.
ex:
Worksheets("Stat Gen").Range("D20") = ((Worksheets("Data").Range("AO11") / Worksheets("Data").Range("D11")) / (Worksheets("Data").Range("AO14") / Worksheets("Data").Range("D14"))) - 1

Cette erreur apparaît lorsque la range est égale à zéro ou qu´elle est vide.

Existe-t-il svp une manière de l´éviter? Avec un "IF" peut-être

merci par avance de votre aide
Antoine

 

[tbft]

Re : division par zéro

bonjour

peut-etre avec :
if ( Worksheets("Data").Range("D11").value<>0 ) and ( Worksheets("Data").Range("AO14").value<>0 ) and(Worksheets("Data").Range("D14").value<>0) then calcul

a essayer

tien moi au courant...

 

[mapomme]

Re : division par zéro

Bonsoir,

En reprenant votre proposition, testez si aucun des diviseurs n'est nul.

'Avec if
If Worksheets("Data").Range("D11") <> 0 And _
    Worksheets("Data").Range("AO14") <> 0 And  _
    Worksheets("Data").Range("D14") <> 0  Then
        Worksheets("Stat Gen").Range("D20") = ((Worksheets("Data").Range("AO11") / _
        Worksheets("Data").Range("D11")) / (Worksheets("Data").Range("AO14") / _
        Worksheets("Data").Range("D14"))) - 1
Else
        Worksheets("Stat Gen").Range("D20") = ""
End If

'ou bien par une barbare gestion d'erreur:
' mais peut masquer d'autres erreurs que la division par 0 !
On Error Resume Next
Worksheets("Stat Gen").Range("D20") = ((Worksheets("Data").Range("AO11") / _
Worksheets("Data").Range("D11")) / (Worksheets("Data").Range("AO14") / _
Worksheets("Data").Range("D14"))) - 1
On Error GoTo 0

 

[derkoo410]

Re : division par zéro

Merci aux 3 pour vos rapide réponses.
Le "On error go to" me va parfaitement pour l´appli. Je vais pour voir continuer à écrire mes formules ;-)
Bonne soirée

 

[tbft]

Re : division par zéro

Personnellement, je préfère utiliser la gestion des erreurs en dernier recours.....
Je trouve que cela fait plus propre.
Mais cela n'engage que moi...

 

[mapomme]

Re : division par zéro

Bonjour le forum et Jean-Marcel,

1) Effectivement, j'ai fait de grossières erreurs dans mon code (à ne pas vouloir se relire deux fois...). Mille excuses à derkoo410.
2) Le terme 'barbare gestion d'erreur' ne visait que moi-même parce que le cas s'est présenté à moi au moins une fois. Mais comme vous le précisez, limitée à une seule ligne, les risques sont presque nuls.
Merci d'avoir signalé mon erreur.
Cordialement,