division par zéro

derkoo410 · 1 Novembre 2011

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 · 1 Novembre 2011

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 · 1 Novembre 2011

Re : division par zéro

Bonsoir,

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

Code:

'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 · 1 Novembre 2011

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 · 1 Novembre 2011

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 · 2 Novembre 2011

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,

division par zéro

derkoo410

Guest

tbft

XLDnaute Accro

mapomme

XLDnaute Barbatruc

derkoo410

Guest

tbft

XLDnaute Accro

mapomme

XLDnaute Barbatruc

Discussions similaires

division par zéro

derkoo410

Guest

tbft

XLDnaute Accro

mapomme

XLDnaute Barbatruc

derkoo410

Guest

tbft

XLDnaute Accro

mapomme

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency