Fonction retournant #N/A

(J'ai bien tenté de chercher dans le Forum, mais une recherche #N/A ne retourne rien...)

Je développe une fonction VBA qui, sous certaines conditions, dont retourner la valeur #N/A. J'ai beau chercher dans l'aide, je trouve comment tester pour l'exception, mais je ne trouve pas comment assigner #N/A au résultat de ma fonction.

Code:

---

1 2 3 4 5 6 7

function MaFonction(arguments...) as double if ... then MaFonction = #N/A exit function end if ...

---

Bonjour,

utilise CVErr ...:

Code:

---

MaFonction = CVErr(xlErrNA)

---

Salut,

Il faut que ta fonction soit typé Variant pour que le VBA créé un sous-type Error dans le cas où une valeur d'erreur est retourné, dans les autres cas comme ça, tu peux utiliser le Variant avec un sous-type Double pour retourner des valeurs.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function MaFonction(arguments) As Variant If True Then MaFonction = CVErr(XlCVError.xlErrNA) Exit Function End If End Function       Sub Test() Dim v v = MaFonction(Empty) End Sub

---

Merci. Ça fonctionne parfaitement.