XL 2010 Comment gérer erreur Div0 [RESOLU]

cathodique

XLDnaute Accro
Bonjour,

Je remercie tous ceux et celles qui m'ont aidé. Je sollicite encore votre aide pour le problème suivant.
A partir de la feuille comptes je dois extraire et traiter des données, puis à transférer et mettre en forme sur la feuille situation rec. Cependant, lors du calcul du taux de réalisation une erreur survient "division par zéro". Ce qui est normal, car pour certaines lignes le prévisionnel est nul ou chaine vide.

En ajoutant, On error resume next le code ne plante pas mais les résultats pour les lignes concernées sont faux. Comment gérer cette situation? Je voudrais que lorsque le prévisionnel est nul ou non défini, le calcul du taux ne s'effectue pas. Le résultat escompté est en image dans le fichier.

En vous remerciant par avance.

Bonne journée.
 

Fichiers joints

Roland_M

XLDnaute Barbatruc
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
 

cathodique

XLDnaute Accro
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.
 

Roland_M

XLDnaute Barbatruc
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 !
 

Discussions similaires


Haut Bas