Discussion :

[malingue]

Bonjour,

Dans un formulaire je commence mon code avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error GoTo Fin

ca marche tres bien.

Maintenant au cours de l'execution de mon code j'ai des petits blocs (par exemple PRODUCTION qui traite les données liées à la production.
au debut de chacun de ces petits blocs j'aimerai mettre un systeme de gestion d'erreure "localisée", du type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error GoTo FinProduction

le pb est que le code d'erreur générique defint au debut semble "court-circuiter" les autres et si j'ai une erreure dans le bloc PRODUCTION le focus va sur "Fin" et pas sur "FinProduction"

Y a t'il un moyen de "desactiver" (et reactiver) un tag "on Error"?

Merci!

Guillaume

[pc75]

Bonjour,

Pour ré-activer le gestionnaire d'erreurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
on error goto 0

[malingue]

ca ne fait rien...

j'ai un code du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
xxx
 
on error goto finprod
xxxx
finprod:
 
xxx
 
on error goto finfact
xxx
finfact:
 
xxx

Il enregistre bien le premier goto et il repond bien (en cas d'erreure il va à finprod) mais ensuite il ne prend plus en compte les goto suivants (finfact).
Si je fais sauter le premier goto, il prend en compte le deuxieme.

Tout se passe donc comme si j'avais droit à "un seul tir" sur la gestion d'erreure.

Si je met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

on error goto 0

apres le premier "fin" ca ne change rien...

[guigui5931]

Tu peux peut être faire un truc un peu moins propre du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
public sub xxxxx
On error goto erreur
dim flag as byte
flag=0
xxx
 
flag=1
xxxx
flag=2
xxx
 
erreur : if (flag=0)then goto finprod
           if (flag=1)then goto finfact
           ................
finprod: .....
finfact: ......

Je pense que ça doit répondre à ton problème, même si c moins propre

[malingue]

Merci guigui,

c'est vrai que comme ca ca devrait marcher...

Merci!

Guillaume

[random]

on error goto finprod
gnagnagna
on error goto fin
gnagnagna
exit sub
:finprod
gnagangna
exit sub
:fin
gnagnagna
end ub

[Pierre Fauconnier]

Bonjour

Personnellement, je préfère une seule gestion d'erreurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
on error goto erreurs
 
...
...
erreurs:
    select case err
        case xxx
            resume next
        case yyy
            msgbox "Erreur"
            resume next
        case zzz
            msgbox "Erreur"
    end select

Ok?

[=JBO=]

Bonjour,

Dans ton contexte de ton On Error Goto Fin.

Suite au déclenchement d'une erreur:
1. l'interpréteur VBA bascule dans un mode "erreur en cours",
2. l'éxécution du code est déroutée vers l'étiquette Fin.

Pour que la gestion de nouvelles erreurs puisse se poursuivre "normalement", il faut que l'interpréteur VBA revienne dans un mode "exécution normale", et pour ça il faut utiliser le mot-clef Resume éventuellement suivi, soit du mot-clef Next, soit d'une autre étiquette.

L'utilisation de Resume permet de dérouter l'éxécution (idem Goto) et surtout de revenir à un mode "éxécution normale" nécessaire pour capturer de nouvelles erreurs.

Bref, cf. l'aide en ligne de VBA.

[malingue]

merci pour tout les amis!

Finalement je m'en suis tiré avec resume next.

mais sur le fond je ne comprend toujour pas le "triger" d'erreur ne marche qu'une seule fois....

Guillaume

[=JBO=]

mais sur le fond je ne comprend toujour pas le "triger" d'erreur ne marche qu'une seule fois....

Essaye une deuxième lecture...

Pour que la gestion de nouvelles erreurs puisse se poursuivre "normalement", il faut que l'interpréteur VBA revienne dans un mode "exécution normale", et pour ça il faut utiliser le mot-clef Resume éventuellement suivi, soit du mot-clef Next, soit d'une autre étiquette.

L'utilisation de Resume permet de dérouter l'éxécution (idem Goto) et surtout de revenir à un mode "éxécution normale" nécessaire pour capturer de nouvelles erreurs.