Pb avec Application.WorksheetFunction.IfError

Bonjour a tous,

Ma petite sub ....

Code:

---

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

Citation:

---

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

Citation:

---

Envoyé par Bombar

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:

---

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

---

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.

Merci à tous les deux pour votre réponse.

Menhir : La formule fonctionne parfaitement !!! :merci:

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

Bonjour à tous,

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

Code:

---

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

---

eric

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