CVErr, fonction

  • Article

Renvoie un Variant de sous-type Error contenant un numéro d'erreur spécifié par l'utilisateur.

Syntaxe

CVErr(errornumber)

L’argument errornumber requis est n’importe quel numéro d’erreur valide.

Remarques

Utilisez la fonction CVErr pour créer des erreurs définies par l'utilisateur dans des procédures créées par l'utilisateur. Par exemple, si vous créez une fonction qui accepte plusieurs arguments et renvoie normalement une chaîne, votre fonction peut évaluer les arguments d'entrée de façon à s'assurer qu'ils sont compris dans une plage acceptable. Si ce n'est pas le cas, il est probable que votre fonction ne renverra pas le résultat attendu. Dans ce cas, la fonction CVErr vous permet de renvoyer un numéro d'erreur qui vous indique la mesure à prendre.

Notez que la conversion implicite d'un objet Error n'est pas autorisée. Par exemple, vous ne pouvez pas affecter directement la valeur de retour de CVErr à une variable qui n'est pas un Variant. Toutefois, vous pouvez effectuer une conversion explicite (à l’aide de CInt, CDbl, etc.) de la valeur retournée par CVErr et l’affecter à une variable du type de données approprié.

Exemple

Cet exemple utilise la fonction CVErr pour renvoyer un Variant dont VarType est vbError (10). La fonction CalculateDouble définie par l’utilisateur retourne une erreur si l’argument qui lui a été transmis n’est pas un nombre. Utilisez CVErr pour renvoyer les erreurs définies par l’utilisateur à partir de procédures définies par l’utilisateur ou pour différer la gestion d’une erreur d’exécution. Utilisez la fonction IsError pour tester si la valeur représente une erreur.

' Call CalculateDouble with an error-producing argument.
Sub Test()
    Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
    If IsNumeric(Number) Then
        CalculateDouble = Number * 2    ' Return result.
    Else
        CalculateDouble = CVErr(2001)    ' Return a user-defined error 
    End If    ' number.
End Function

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.