On error ne marche pas la 2ème fois

**Halo2550** · 26/08/2013, 18h03

Bonjour à tous,

Je pensais avoir compris le fonctionnement de la gestion d'erreur sous VBA jusqu'à ce cas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
 
On Error GoTo t
ActiveSheet.ShowAllData
 
t:
 
On Error Resume Next
ActiveSheet.ShowAllData
 
End Sub

Pourquoi ici, le on error resume next ne fonctionne pas ?
J'ai essayé également de mettre un on error goto 0 entre les 2 on error mais ça ne marche pas.

On suppose bien sûr que la feuille active n'est pas filtrée

Mon problème "réel" se pose dans une boucle du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For i = 1 to 3
    On error GoTo x
 
    ' Traitements ... '
 
    On Error Resume Next
    Sheets(i).ShowAllData
 
x:
 
    ' Gestionnaire d'erreur '
Next

**EngueEngue** · 26/08/2013, 18h06

normal...
On Error s'emploie avec un Resume
Mais ici, il n'y a ni Resume ni Resume next ni Resume etiquette_de_ligne

Il faut mettre fin à une gestion d'erreur pour en commencer une autre

Invité · 26/08/2013, 18h07

Tu peux lire ce tutoriel pour comprendre comment ça marche:
http://silkyroad.developpez.com/VBA/GestionErreurs/

Sinon dans ton cas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 
  On Error GoTo t
    ActiveSheet.ShowAllData
  On Error GoTo 0
 
  Exit Sub
 
t:
  Debug.Print (Err.Description)
  Resume Next
 
End Sub

**Halo2550** · 26/08/2013, 18h10

EngueEngue -> A quoi sert On Error GoTo 0 alors si ça ne met pas fin au gestionnaire d'erreur ?

EDIT: vcottineau -> Ok en fait j'avais trouvé cette solution mais je ne savais pas que l'on pouvais faire Resume etiquette_ligne comme l'a dit EngueEngue donc ça me posait problème dans ma boucle avec seulement Resume et Resume Next. Par contre même question que pour EngueEngue, à quoi sert ton On Error GoTo 0 si c'est le Resume Next qui invalide le gestionnaire d'erreur ?

Merci à vous 2 en tous cas, rapides et efficaces

Invité · 26/08/2013, 18h45

Le 'On Error GoTo 0' permet de réactiver le gestionnaire d'erreur par défaut et arrêtera l’exécution de ton programme si une erreur est rencontrée.

Dans mon exemple si tu ajoutes une erreur entre le 'On Error GoTo 0' et le 'Exit Sub' ton programme va planter car l'erreur ne sera pas gérée.

**Halo2550** · 26/08/2013, 18h50

Et donc que se passe t-il si une erreur se produit entre le Resume Next et le On error goto 0 puisque Resume Next désactive le gestionnaire d'erreur créé et que celui par défaut n'est pas encore réactivé ?

EDIT: Je viens de tester et le On Error GoTo t est toujours activé dans cet exemple (le 2ème ShowAllData nous renvoit à t) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
 
  On Error GoTo t
    ActiveSheet.ShowAllData
 
    ActiveSheet.ShowAllData
 
  Exit Sub
 
t:
  Debug.Print (Err.Description)
  Resume Next
 
End Sub

Or de ce que j'ai compris de EngueEngue, Resume Next devrait arrêter le gestionnaire.

Invité · 26/08/2013, 21h11

Non le 'Resume Next' n'arrête pas le gestionnaire ; il permet de passer à la ligne de code suivante. Dans ton exemple ci-dessous l'ensemble des lignes de code sont contenues dans le 'On Error GoTo t' donc si une erreur est rencontrée elle est traitée par par le 'GoTo t'.

C'est pour ça que j'avais mis un 'On Error GoTo 0' après la ligne qui risquait de déclancher une erreur. Ca me permet de catcher l'erreur et de laisser ensuite le reste du code au gestionnaire par défaut des erreurs.

**Halo2550** · 28/08/2013, 07h53

Ok donc mon problème reste entier. Je ne sais toujours pas pourquoi ce code ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
On error GoTo t
ActiveSheet.ShowAllData
t:
' Traitements quelconques '
On error GoTo 0
' Traitements quelconques '
On error Resume Next
ActiveSheet.ShowAllData

Là dans cet exemple le On error Resume Next ne fonctionne pas si je n'ai pas utilisé de Resume pour la 1ère erreur du1er ShowAllData

**Oliv-** · 22/01/2019, 14h41

Bonjour,

Je fais le même constat
si on a un on error goto etiquette puis un on error resume next , ce dernier ne fonctionne pas ?!!

**RyuAutodidacte** · 22/01/2019, 15h00

Bonjour ,

Personnellement je n’utilise pas le On Error GoTo Étiquette
Une bonne partie des erreurs peuvent être évitées avec l’emploi des conditions (If …) selon les situations connues dans lesquelles on se trouve.
Lorsque j’utilise une gestion d’erreur, c’est souvent dans le cas où on a pas le choix et que l’on sait que l’erreur va arriver.
Dans ce cas j’utilise :

Code :

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

1
2
3
4
5
6
7
8
On Error Resume Next
   ‘…
   If Err Then
      ‘…
      Err.Clear
   End If 
   ‘…
On Error GoTo 0

**Arkham46** · 22/01/2019, 15h09

Bonjour,

Pour "sortir" du gestionnaire d'erreurs et permettre un autre on error :

Code :

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

On error goto -1

**RyuAutodidacte** · 22/01/2019, 16h32

Re

Juste pour rajouter, le Err.Clear permet d’effacer une erreur qui s’est produite,
permettant alors qu’une autre éventuelle erreur se produise à son tour par la suite … (Edit en précision, dans le cas de l'intéressé ici - bien sur on attend pas une éventuelle erreur, sauf (pour exemple) les collections))

Edit : pour les moins 1
si on détails plus, si l'on sait que l'on l'on aura 2 - 3 erreurs qui peuvent se produire,
et que l'on veut un résultat précis selon le type d'erreur ou l'on veut cibler l'erreur qui nous intéresse
alors dans ce cas on utilisera (en abrégé) :

Code :

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

1
2
3
4
If Err.Number = XX Then ' XX représentant le numéro de l'erreur que l'on cible
   ' le code à mettre
   Err.Clear
End if

Malheureusement l'homme n'a pas la science infuse, sinon ça se saurait, alors si on peut m'éclairer pour les -1 ça serait

**Oliv-** · 22/01/2019, 22h36

Envoyé par Arkham46

Bonjour,

Pour "sortir" du gestionnaire d'erreurs et permettre un autre on error :

Code :

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

On error goto -1

Bonsoir,
Merci Arkham, ça semble être la solution, j'ai toujours utilisé on error goto 0, je ne connaissais pas on error goto -1 ça vient de où c'est pas dans l'aide en toout cas ?