Générer soit Même une Erreur
Publié: 24 Juil 2005 à 10:52Vous 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