Detection d'erreur
fahdboujadi
Messages postés
20
Date d'inscription
lundi 15 novembre 2004
Statut
Membre
Dernière intervention
2 mai 2005
-
1 mars 2005 à 16:22
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 1 mars 2005 à 21:39
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 1 mars 2005 à 21:39
A voir également:
- Detection d'erreur
- Erreur d'exécution 424 ✓ - Forum VBA Office (Excel, Word ...)
- Erreur d'execution 9 ✓ - Forum Visual Basic 6
- Erreur d'exécution '9' : l'indice n'appartient pas à la sélection ✓ - Forum Visual Basic 6
- Erreure d'execution 9 ✓ - Forum Visual Basic 6
- Erreur de saisie - Conseils pratiques -C / C++ / C++.NET
3 réponses
voilhes
Messages postés
33
Date d'inscription
lundi 20 janvier 2003
Statut
Membre
Dernière intervention
6 septembre 2006
6
1 mars 2005 à 16:50
1 mars 2005 à 16:50
Une solution possible:
On Error Resume Next
Instruction donnant lieu à une erreur
If Err.Number<>0 then
Instructions en cas d'erreur
Err.Clear
End If
-Francis-
On Error Resume Next
Instruction donnant lieu à une erreur
If Err.Number<>0 then
Instructions en cas d'erreur
Err.Clear
End If
-Francis-
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
1 mars 2005 à 18:06
1 mars 2005 à 18:06
Dim i As Integer
i = 12345
On Error GoTo Error
i = i * 10
MsgBox "contenu de i: " & i
Exit Sub
Error:
i = 1
Resume
Daniel
i = 12345
On Error GoTo Error
i = i * 10
MsgBox "contenu de i: " & i
Exit Sub
Error:
i = 1
Resume
Daniel
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
21
1 mars 2005 à 21:39
1 mars 2005 à 21:39
Si on synthétise les 2 réponses proposées, on obtient :
sub machin()
On error goto error trt_error
...
...
exit sub
trt_error:
'tu ignores l'erreur et tu passes à l'instruction suivante
resume next
'ou tu traites l'erreur et tu tentes de réexécuter l'instruction en erreur
... traitement de l'erreur
resume
'ou tu abandonnes
... ta proc de fermeture, sauvegarde, etc...
end sub
Loup Gris
sub machin()
On error goto error trt_error
...
...
exit sub
trt_error:
'tu ignores l'erreur et tu passes à l'instruction suivante
resume next
'ou tu traites l'erreur et tu tentes de réexécuter l'instruction en erreur
... traitement de l'erreur
resume
'ou tu abandonnes
... ta proc de fermeture, sauvegarde, etc...
end sub
Loup Gris