Retourne un Variant de sous-type Error contenant un numéro d’erreur spécifié par l’utilisateur.
Syntaxe
CVErr ( errornumber )
Le numéro d’erreur requisargument 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 les procédures créées par l’utilisateur. Par exemple, si vous créez une fonction qui accepte plusieurs arguments et retourne normalement une chaîne, vous pouvez demander à votre fonction d’évaluer les arguments d’entrée pour vous assurer qu’ils se trouvent dans la plage acceptable. Si ce n’est pas le cas, il est probable que votre fonction ne retournera pas ce que vous attendez. Dans ce cas, CVErr vous permet de retourner un numéro d’erreur qui vous indique l’action à entreprendre.
Notez que la conversion implicite d’une erreur n’est pas autorisée. Par exemple, vous ne pouvez pas affecter directement la valeur de retour de CVErr à un 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 de la type de données appropriée.
Exemple
Remarque : Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction CVErr pour retourner un variant dont VarType est vbError (10). La fonction définie par l’utilisateur CalculateDouble retourne une erreur si l’argument qui lui a été transmis n’est pas un nombre. Vous pouvez utiliser 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
