Partager via


Error, fonction

Renvoie le message d’erreur qui correspond à un numéro d’erreur donné.

Syntaxe

Erreur [ (errornumber) ]

L’argument facultatif errornumber peut être n’importe quel numéro d’erreur valide. Si errornumber est un numéro d’erreur valide, mais n’est pas défini, Error renvoie la chaîne « Erreur définie par l’application ou par l’objet ».

Si errornumber n’est pas valide, une erreur se produit. Si errornumber est omis, le message correspondant à l’erreur d’exécution la plus récente est renvoyée. Si aucune erreur d’exécution ne s’est produite, ou si errornumber a la valeur 0, Error renvoie une chaîne de longueur nulle ("").

Remarques

Examinez les valeurs de propriété de l’objet Err pour identifier l’erreur d’exécution la plus récente. La valeur de retour de la fonction Error correspond à la propriété Description de l’objet Err.

Exemple

Cet exemple utilise la fonction Error pour imprimer des messages d’erreur qui correspondent aux numéros d’erreur spécifiés.

Private Sub PrintError()
    Dim ErrorNumber As Long, count As Long
    count = 1: ErrorNumber = 1
    On Error GoTo EOSb
    Do While count < 100
        Do While Error(ErrorNumber) = "Application-defined or object-defined error": ErrorNumber = ErrorNumber + 1: Loop
        Debug.Print count & "-Error(" & ErrorNumber & "): " & Error(ErrorNumber)
        ErrorNumber = ErrorNumber + 1
        count = count + 1
    Loop
EOSb: Debug.Print ErrorNumber
End Sub


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.