Générer soit Même une Erreur

[Michael DELIQUE]

Vous pouvez vous-même générer une erreur si par exemple un test ne n'est pas valide.

Code : Tout sélectionner

Sub Click(Source As Button)
   On Error Goto ErrorHandler ' Si erreur aller à l'étiquette
   
   Dim i As Integer
   
   'test que i ne dépasse pas 365.
   i = 4000
   If i > 365 Then
      Error 9999, "i est supérieur à 365 : "+Cstr(i)
   End If
   
ErrorHandler:
   Messagebox "Erreur:" & Error(Err), 0+64, "Erreur!!" ' Un avertissement
   Print "Erreur No. : " Err             ' Numéro du code d'erreur
   Print "Description : " Error(Err)     ' La description
   Print "Ligne No. : " Erl              ' La ligne ou se trouve l'erreur
   Resume Next                           ' Reprend le prog à l'instruction suivante
   Exit Sub                              ' Sort de la procédure
End Sub