On Error, instruction (Visual Basic)

Active une routine de gestion des erreurs et spécifie l'emplacement de la routine dans une procédure ; peut également être utilisée pour désactiver une routine de gestion des erreurs.

Sans instruction On Error, une erreur d'exécution est irrécupérable : un message d'erreur s'affiche et l'exécution s'arrête.

Nous vous suggérons, dans la mesure du possible, d'utiliser une gestion structurée des exceptions dans votre code plutôt qu'une gestion non structurée et l'instruction On Error. Pour plus d'informations, consultez Try...Catch...Finally, instruction (Visual Basic).

On Error { GoTo [ line | 0 | -1 ] | Resume Next }

Éléments

Notes

Un gestionnaire d'erreurs « actif » est activé par une instruction On Error. Un gestionnaire d'erreurs « actif » est un gestionnaire activé qui figure dans le processus de gestion d'une erreur.

Si une erreur se produit lorsqu'un gestionnaire d'erreurs est actif (entre l'occurrence de l'erreur et l'instruction Resume, Exit Sub, Exit Function ou Exit Property), le gestionnaire d'erreurs de la procédure en cours ne peut pas gérer l'erreur. Le contrôle retourne à la procédure appelante.

Si la procédure appelante possède un gestionnaire d'erreurs activé, elle peut gérer l'erreur. Si le gestionnaire d'erreurs de la procédure appelante est également actif, le contrôle est retourné par l'intermédiaire des procédures appelantes précédentes jusqu'à la découverte d'un gestionnaire d'erreurs activé (mais inactif). Si aucun gestionnaire d'erreurs de ce type n'est découvert, l'erreur est irrécupérable au point où elle est apparue.

Chaque fois que le gestionnaire d'erreurs retourne le contrôle à une procédure appelante, cette procédure devient la procédure en cours. Dès qu'une erreur est gérée par une gestionnaire d'erreurs dans une procédure, l'exécution reprend dans la procédure en cours au point désigné par l'instruction Resume.

Number, propriété

Les routines de gestion d'erreurs reposent sur la valeur de la propriété Number de l'objet Err pour déterminer la cause de l'erreur. La routine devrait tester ou enregistrer les valeurs de propriétés adéquates dans l'objet Err avant qu'une autre erreur ne se produise ou avant qu'une procédure pouvant engendrer une erreur soit appelée. Les valeurs de propriété de l'objet Err reflètent uniquement l'erreur la plus récente. Le message d'erreur associé à Err.Number est contenu dans Err.Description.

Throw, instruction

Une erreur qui est déclenchée avec la méthode Err.Raise affecte à la propriété Exception une instance nouvellement créée de la classe Exception. Afin de prendre en charge le déclenchement d'exceptions des types d'exception dérivés, une instruction Throw est prise en charge dans le langage. Elle prend un seul paramètre qui est une instance d'exception à lever. L'exemple suivant montre comment ces fonctionnalités peuvent être utilisées avec la prise en charge de gestion des exceptions existante :

    On Error GoTo Handler
    Throw New DivideByZeroException()
Handler:
    If (TypeOf Err.GetException() Is DivideByZeroException) Then
    ' Code for handling the error is entered here.
    End If

Notez que l'instruction On Error GoTo intercepte toutes les erreurs quelle que soit la classe d'exception.

On Error Resume Next

On Error Resume Next poursuit l'exécution par l'instruction qui suit directement celle qui a engendré l'erreur d'exécution ou par celle qui suit directement le dernier appel de la procédure contenant l'instruction On Error Resume Next. Cette instruction permet la poursuite de l'exécution malgré l'erreur d'exécution. Vous pouvez placer la routine de gestion des erreurs à l'endroit où l'erreur risque de se produire au lieu de transférer le contrôle à un autre emplacement de la procédure. Une instruction On Error Resume Next devient inactive lors de l'appel d'une autre procédure ; vous devriez donc exécuter une instruction On Error Resume Next dans chaque routine appelée si vous souhaitez utiliser une gestion des erreurs inline dans cette routine.

On Error GoTo 0

On Error GoTo 0 désactive la gestion des erreurs dans la procédure actuelle. Elle ne spécifie pas la ligne 0 comme point de départ du code de gestion des erreurs, même si la procédure contient effectivement une ligne numérotée 0. Sans instruction On Error GoTo 0, un gestionnaire d'erreurs est automatiquement désactivé lorsqu'une procédure se termine.

On Error GoTo -1

On Error GoTo -1 désactive l'exception dans la procédure actuelle. L'instruction ne spécifie pas la ligne -1 comme le début du code de gestion d'erreur, même si la procédure contient effectivement une ligne numérotée -1. Sans une instruction On Error GoTo -1, une exception est automatiquement désactivée lorsqu'une procédure se termine.

Pour empêcher l'exécution du code de gestion des erreurs lorsque aucune erreur ne se produit, insérez une instruction Exit Sub, Exit Function ou Exit Property immédiatement avant la routine de gestion des erreurs, comme illustré dans le fragment suivant :

Public Sub InitializeMatrix(ByVal Var1 As Object, ByVal Var2 As Object)
   On Error GoTo ErrorHandler
   ' Insert code that might generate an error here
   Exit Sub
ErrorHandler:
   ' Insert code to handle the error here
   Resume Next
End Sub

Dans cet exemple, le code de gestion des erreurs suit l'instruction Exit Sub et précède l'instruction End Sub pour la séparer du flux de procédure. Vous pouvez placer du code de gestion des erreurs à n'importe quel endroit d'une procédure.

Erreurs non interceptées

Les erreurs non interceptées dans les objets sont retournées à l'application de contrôle lorsque l'objet s'exécute comme un fichier exécutable. Dans l'environnement de développement, les erreurs non interceptées sont retournées à l'application de contrôle uniquement si les options correctes sont définies. Consultez la documentation de votre application hôte pour obtenir une description des options à définir lors du débogage et savoir comment les définir, ainsi que pour déterminer si l'hôte peut créer des classes.

Si vous créez un objet qui accède à d'autres objets, vous devez essayer de traiter les erreurs non gérées retournées. Dans le cas contraire, vous pouvez mapper les codes d'erreur de Err.Number vers l'une de vos erreurs, puis passer ces erreurs à l'appelant de votre objet. Vous devez spécifier votre erreur en ajoutant votre code d'erreur à la constante VbObjectError. Par exemple, si votre code d'erreur est 1052, vous devez l'assigner comme suit :

Err.Number = vbObjectError + 1052

Exemple

Cet exemple utilise d'abord l'instruction On Error GoTo pour spécifier l'emplacement d'une routine de gestion des erreurs dans une procédure. Dans l'exemple, une tentative de diviser par zéro génère le numéro d'erreur 6. L'erreur est contrôlée dans la routine de gestion des erreurs, puis le contrôle est retourné à l'instruction qui a provoqué l'erreur. L'instruction On Error GoTo 0 désactive l'interception des erreurs. L'instruction On Error Resume Next est ensuite utilisée pour différer l'interception des erreurs de sorte que le contexte de l'erreur générée par l'instruction suivante peut être déterminé avec certitude. Notez que Err.Clear est utilisé pour effacer les propriétés de l'objet Err après la gestion de l'erreur.

Public Sub OnErrorDemo()
   On Error GoTo ErrorHandler   ' Enable error-handling routine.
   Dim x As Integer = 32
   Dim y As Integer = 0
   Dim z As Integer
   z = x / y   ' Creates a divide by zero error
   On Error GoTo 0   ' Turn off error trapping.
   On Error Resume Next   ' Defer error trapping.
   z = x / y   ' Creates a divide by zero error again
   If Err.Number = 6 Then
      ' Tell user what happened. Then clear the Err object.
      Dim Msg As String
      Msg = "There was an error attempting to divide by zero!"
      MsgBox(Msg, , "Divide by zero error")
      Err.Clear() ' Clear Err object fields.
   End If
Exit Sub      ' Exit to avoid handler.
ErrorHandler:  ' Error-handling routine.
   Select Case Err.Number   ' Evaluate error number.
      Case 6   ' Divide by zero error
         MsgBox("You attempted to divide by zero!")
         ' Insert code to handle this error
      Case Else
         ' Insert code to handle other situations here...
   End Select
   Resume Next  ' Resume execution at same line
                ' that caused the error.
End Sub

Configuration requise

Espace de noms : Microsoft.VisualBasic

Assembly : bibliothèque Runtime Visual Basic (dans Microsoft.VisualBasic.dll)

Voir aussi

Référence

End, instruction

Err

Exit, instruction (Visual Basic)

LastDllError

Resume, instruction

Concepts

Messages d'erreur (Visual Basic)