Discussion :

[drics]

Bonjour,

J'ai un pb avec ce code:

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
18
19
20
21
 
 
Sub UtilisationInstructionResume()
    Dim i As Integer, j As Integer
 
On Error GoTo ErrorHandler
 
    'Par défaut i=0 (et va provoquer une erreur)
    j = 5 / i
    MsgBox j
 
 
    Exit Sub
 
ErrorHandler:
    MsgBox "Erreur: " & Err.Number & vbCrLf & Err.Description
    If i = 0 Then i = 1
    'Reprend l'exécution au niveau de la ligne à l'origine de l'erreur.
    Resume
 
End Sub

Comme vous l'aurez peut-être remarqué, ce code n'est même pas de moi, ces juste que je veux utiliser les gestionnaires d'erreurs et voilà que ça ne marche plus, même avec ce code type. Je ne comprends pas.
D'autant qu'un autre code que j'ai déjà vu fonctionner ne marche plus non plus sur la même machine(Excel 2002)

Merci d'avance pour vos lumière,

[Pierre Fauconnier]

Bonsoir

Ce serait bien que tu précises ce qui "ne marche plus"...

Chez moi, ce code fonctionne, et j'ai donc bien le message d'erreur pour la division par 0, puis le message affichant la valeur de J.

[patbou]

j ai le meme pb que drics

a la ligne

Code :

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

1
2
 
j = 5 / i

j ai la boite de dialogue gestion des erreurs
erreur d execution 11
division par zero

au lieu d avoir le msgbox

[Pierre Fauconnier]

Et en mode pas à pas, qu'est-ce que cela donne?
Il s'arrête sur la ligne

Code :

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

1
2
 
j = i / 5

ou sur la ligne

Code :

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

msgbox "Erreur: " + err.number...

??

[patbou]

Et en mode pas à pas, qu'est-ce que cela donne?
Il s'arrête sur la ligne

Code :

j = i / 5ou sur la ligne

Code :
msgbox "Erreur: " + err.number...

en auto et en pas à pas il s arrete sur

Code :

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

1
2
 
j = i / 5

[Invité]

Bonjour

Comme est activée la gestion d'erreur dans l'éditeur VBA : Outil/Option ?

Starec

[Pierre Fauconnier]

Bien vu Starec

Il faudrait vérifier dans Outils/Options/Général que la récupération d'erreurs est cochée sur Arrêt dans le module de classe ou Arrêt sur les erreurs non gérées.

Si c'est l'option Arrêt sur toutes les erreurs, alors le code s'arrêtera sur ... toutes les erreurs!

J'avais jamais fait attention à cette option...

[patbou]

effectivement suivant la configuration

"arret sur toutes les erreurs ou arret sur les erreurs non gerées"
les deux cas de figure sont possibles

[Invité]

Bien vu Starec

Merci Pierre

Je ne sais pas si cela résoudra le problème, mais en général c'est la première chose à vérifier que ce soit sur Excel ou sur Access lorsqu'il y'a un problème sur une gestion d'erreur.

Starec

[ucfoutu]

Bien vu, en effet...
ou plutôt, dirais-je : non vu dans le code presenté

[drics]

Bonjour Messieurs,

Merci beaucoup pour cette explication, ça marche mieux avec les bonne options. Je n'avais trouvé cette info dans aucun tuto ni faq. Soit j'ai mal cherché(possible) ou alors ce serait une bonne chose à préciser.

Encore merci,