XL 2010 Comment gérer erreur Div0 [RESOLU]

Roland_M

XLDnaute Barbatruc

• 13 Novembre 2018

• #2

bonjour,

'comme ceci
Dim Taux As Currency, V!
V! = B(p, 4): If V! <= 0 Then V! = 1
Taux = (B(p, 5) / V!) 'plante ici div0
B(p, 7) = Taux

'ou encore
Dim Taux As Currency
Taux = (B(p, 5) / (B(p, 4) + 1 And B(p, 4) <= 0)) 'plante ici div0
B(p, 7) = Taux

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 13 Novembre 2018

• #3

Bonjour Roland_M 🙂😉,

Merci pour ton essai mais les résultats ne sont pas bons pour les 2 propositions.

Bonne journée.

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 13 Novembre 2018

• #4

Encore merci Roland_M,

Je m'étais dans un ver d'eau, la solution était très simple.

VB:

If b(p, 4) = 0 Or b(p, 4) = "" Then
               b(p, 7) = ""
            Else
               Taux = (b(p, 5) / b(p, 4))   'plante ici div0
               b(p, 7) = Taux
            End If

Bonne journèe.

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 13 Novembre 2018

• #5

re

c'est vrai que l'erreur était rectifiée !
mais j'ai oublié que tu ne voulais rien voir apparaître dans la cellule,
alors évidemment dans ce cas il faut pratiquer comme tu l'as fait ! excuses moi !

 

Vote positif 0 Vote négatif