XL 2010 Comment gérer erreur Div0 [RESOLU]

[cathodique]

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.

 

[Roland_M]

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]

Bonjour Roland_M ,

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

Bonne journée.

 

[cathodique]

Encore merci Roland_M,

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

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]

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 !