Ce navigateur n’est plus pris en charge.

Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.

Télécharger Microsoft Edge Plus d’informations sur Internet Explorer et Microsoft Edge

object est toujours l'objet Err .

Remarques

Utilisez Clear pour effacer explicitement l'objet Err après la gestion d'une erreur, par exemple, lorsque vous utilisez la gestion différée des erreurs avec l'instruction On Error Resume Next . La méthode Clear est automatiquement appelée lorsque l'une des instructions suivantes est exécutée :

  • Tout type d'instruction Resume
  • Exit Sub , Exit Function , Exit Property
  • Toute instruction On Error
  • Remarque

    Il est préférable d'utiliser On Error Resume Next plutôt que On Error GoTo lorsque vous gérez des erreurs générées pendant l'accès à d'autres objets. La vérification de l'objet Err après chaque interaction avec un objet supprime toute ambiguïté concernant l'objet auquel le code a accédé. Vous savez exactement quel objet a placé le code d'erreur dans Err.Number et quel objet est à l'origine de l'erreur (l'objet spécifié dans Err.Source ).

    Exemple

    Dans cet exemple, la méthode Clear de l'objet Err permet de réinitialiser les propriétés numériques de l'objet Err , ainsi que ses propriétés de chaîne (la longueur des chaînes devient nulle). Si la méthode Clear était omise du code suivant, un message d'erreur s'afficherait à chaque itération de la boucle (suite à une erreur), qu'un calcul suivant ait généré une erreur ou pas. Vous pouvez parcourir le code étape par étape pour voir le résultat.

    Dim Result(10) As Integer    ' Declare array whose elements 
                ' will overflow easily.
    Dim indx
    On Error Resume Next    ' Defer error trapping.
    Do Until indx = 10
        ' Generate an occasional error or store result if no error.
        Result(indx) = Rnd * indx * 20000
        If Err.Number <> 0 Then
            MsgBox Err, , "Error Generated: ", Err.HelpFile, Err.HelpContext
            Err.Clear    ' Clear Err object properties.
        End If
        indx = indx + 1
    

    Voir aussi

  • Instructions (Visual Basic pour Applications)
  • Objets (Visual Basic pour Applications)
  • 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.