Discussion :

[Bombar]

Bonjour a tous,

Ma petite sub ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Exemple()
a = 10
b = 2
 
ma cellule = Application.WorksheetFunction.IfError((a/b),0)
End Sub

Dans ce cas .... tout va bien !!!

Mais si je remplace par b= 0, j'ai un message d'erreur ...

Erreur d'execution '11':
Division par zéro

Heu .... c'est bien pour cela que je veux utiliser la fonction IfError .....
Quelqu'un aurait une explication ???
Merci

[Menhir]

Dans ce cas .... tout va bien !!!

J'espère que dans la vraie macro, tu as autre chose que "ma cellule", sinon je ne vois pas comment ça pourrait fonctionner.

Pour ce qui est de ton problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ma_cellule = Evaluate("IFERROR(" & a & "/" & b & ",0)")

[unparia]

Bonjour
La méthode IfError n'évalue pas une expression, mais une valeur :
- celle de l'expression qui lui est éventuellement soumise,
- plus généralement et fréquemment, la valeur (une erreur Excel identifiable) retournée par une formule Excel

Elle ne saurait déterminer si l'expression elle-même et source ou non d'une erreur, sauf si cette erreur est transposée en erreur Excel (résultat de formule).

Il t'appartient donc de traiter ton expression elle-même par une gestion d'erreur VBA.

[Bombar]

Merci à tous les deux pour votre réponse.

Menhir : La formule fonctionne parfaitement !!!

unparia : Effectivement, je mélangeais un peu tout .....

[eriiic]

Bonjour à tous,

tu passes inutilement par les fonctions excel, ça peut se faire directement en vba :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ma_cellule = IIf(b = 0, 0, a / b)

eric

[unparia]

Ramener le résultat à 0 dans un tel cas ne peut que me faire bondir.
Ce serait par exemple oser considérer (et traiter comme tels) que 0/3 et 3/0 ont la même valeur ....