Discussion :

[Sylvain Bergeron]

(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 :

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

1
2
3
4
5
6
7
 
function MaFonction(arguments...) as double
    if ... then
        MaFonction = #N/A
        exit function
    end if
    ...

[SfJ5Rpw8]

Bonjour,

utilise CVErr ...:

Code :

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

MaFonction = CVErr(xlErrNA)

[Invité]

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 :

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

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

[Sylvain Bergeron]

Merci. Ça fonctionne parfaitement.