problème #div/0!

vbacrumble

XLDnaute Accro

• 20 Mai 2009

• #2

Re : problème #div/0!

Bonjour tallia64, le fil , le forum

En utilisant la formule SI et ESTERREUR
=SI(ESTERREUR(D15/E15);"";D15/E15)

ou aussi possible
=SI(ESTNUM(D15/E15);D15/E15;"")

EDITION: bonjour ROGER2327, jetted

 

Dernière édition: 20 Mai 2009

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 20 Mai 2009

• #3

Re : problème #div/0!

Bonjour tallia64

Code:

=SI(E15;D15/E15;"")

devrait faire l'affaire.
Cette formule s'écrit, plus classiquement :

Code:

=SI(E15<>0;D15/E15;"")

Bon courage...
ROGER2327

 

Vote positif 0 Vote négatif

J

jetted

XLDnaute Occasionnel

• 20 Mai 2009

• #4

Re : problème #div/0!

Ou on peut utiliser

une macro avec ce code

Code:

Sub Enleve_Erreur_Formule()
    Dim rng As Range, cell As Range, fmla As String
    Set rng = Cells.SpecialCells(xlCellTypeFormulas, 16)
    For Each cell In rng
        fmla = Right(cell.Formula, Len(cell.Formula) - 1)
        cell.Formula = "=if(iserror(" & fmla & "), """"," & fmla & ")"
    Next
End Sub

 

Vote positif 0 Vote négatif

P

Pyrof

XLDnaute Occasionnel

• 20 Mai 2009

• #5

Re : problème #div/0!

Bonjour,

Comme e problème se répercute souvent j'ai fait ma propre fonction division comme suit

Code:

Function div(a, b)
Application.Volatile
If a*b = 0 Then
    div = ""
Else
    div = a / b
End If
End Function

Voila une autre façon

 

Vote positif 0 Vote négatif

tallia64

XLDnaute Occasionnel

• 20 Mai 2009

• #6

Re : problème #div/0!

Bonjour et merci beaucoup à vous tous pour votre aide ça fonctionne parfaitement.
Bonne après-midi.
Tallia 64

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 20 Mai 2009

• #7

Re : problème #div/0!

Re...

Une remarque sur la proposition de Pyrof: si a=0, b=35 (ou n'importe quelle valeur non nulle), le résultat existe, et c'est 0. La procédure de Pyrof ne donnera pas ce résultat, mais une chaine vide. Est-ce volontaire ?​

ROGER2327

 

Vote positif 0 Vote négatif