[VBA-E]Pb "On Error GoTo"

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour tous,

J'ai un petit problème avec un code utilisant "On Error GoTo".
La première fois que je tombe sur une erreur, l'instruction "On Error" marche et je passe à la suite du code.
Par contre, la deuxième fois que je retombe sur une erreur, ça bug!!!! :(

Ci-après un code qui représente mon problème (sélectionne une feuille à partir de son nom si elle existe. Autrement, il repropose de réessayer)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Sub select_sheet() Dim Msg As String ' Message du MsgBox Dim Title As String ' Titre du MsgBox Dim Response As String ' Réponse du MsgBox Début: ' Boîte de dialogue Msg = "Entrer le nom de la feuille" ' Définit le message. Title = "Sélection de feuille" ' Définit le titre. Response = Application.InputBox(Msg, Title, Type:=2) If Response = "" Then GoTo Début End If If Response <> "Faux" Then On Error GoTo Début ActiveWorkbook.Sheets(Response).Select End If End Sub
Merci d'avance de votre aide!

31/03/2006, 07h44
jmfmarques
Citation:

Par contre, la deuxième fois que je retombe sur une erreur, ça bug!!!!

Rien de plus normal !
Err est un objet de VB et, comme tout autre objet, il a ses propriétés, parmi lesquelles le propriété number.
Quand une erreur est rencontrée, la propriété number (err.number, donc) de Err prend la valeur du numéro de l'erreur concernée.
Tant que cette propriété a cette valeur, VB considère donc logiquement qu'une erreur est toujours présente.
Il faut donc tout simplement, une fois passé avec succès le "cap" où l'erreur est susceptible de se produire, effacer ce que contient Err par Err.clear
exemple :
Code:

1 2 3 on error resume next executons_tenter_celà err.clear
:lol:

Je m'en doutais, mais je voyais pas comment faire. Je suis encore débutant. Merci pour l'info!

Par contre, si j'applique bien ce que tu dis dans mon exemple, je mettrais "err.clear" juste après Début:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub select_sheet()
 
Dim Msg As String           ' Message du MsgBox
Dim Title As String         ' Titre du MsgBox
Dim Response As String      ' Réponse du MsgBox
 
Début:
' Boîte de dialogue
 
Err.Clear
 
    Msg = "Entrer le nom de la feuille"      ' Définit le message.
    Title = "Sélection de feuille"           ' Définit le titre.
 
    Response = Application.InputBox(Msg, Title, Type:=2)
 
If Response = "" Then
 
GoTo Début
 
End If
 
If Response <> "Faux" Then
 
    On Error GoTo Début
 
    ActiveWorkbook.Sheets(Response).Select
 
End If
 
End Sub

J'ai toujours le même problème alors. Est-ce bien logique ce que j'ai tapé comme code?

Bon!
Nous n'avons pas les mêmes méthodes d'approche...
regardes la mienne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub select_sheet() 
  Dim Msg As String           ' Message du MsgBox 
  Dim Title As String         ' Titre du MsgBox 
   Dim Response As String      ' Réponse du MsgBox 
   ' Boîte de dialogue 
    response = ""
    Msg = "Entrer le nom de la feuille"      ' Définit le message.
  Title = "Sélection de feuille"           ' Définit le titre
  While (response = "" Or Err) And response <> "Faux"
    err.clear
    Response = Application.InputBox(Msg, Title, Type:=2) 
    ActiveWorkbook.Sheets(Response).Select 
  Wend
End Sub

Un peu plus orthodoxe, non ?
pas de vilain goto (c'est pas un beau nom, çà...!) pas d"étiquette Début, pas de test à part sur "Faux".. tout ensemble ! :lol:

Joli code. On voit les pro! :wink:
Je sais pas chez toi, mais chez moi ça marche toujours pas!
Je pense que c'est normal, puisque tu mets "err.clear" même avant que l'erreur se produise. Il y a erreur quand tu tapes le nom d'une feuille qui n'existe pas.
Par contre, ton code m'a inspiré et j'ai rajouté un petit "On error resume next" (dsl, j'y tiens! lol) et un code pour générer l'erreur juste avant le while.
Essaye toi-même.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub select_sheet() Dim Msg As String ' Message du MsgBox Dim Title As String ' Titre du MsgBox Dim Response As String ' Réponse du MsgBox ' Boîte de dialogue Response = "" Msg = "Entrer le nom de la feuille" ' Définit le message. Title = "Sélection de feuille" ' Définit le titre On Error Resume Next ActiveWorkbook.Sheets(Response).Select While (Response = "" Or Err) And Response <> "Faux" Err.Clear Response = Application.InputBox(Msg, Title, Type:=2) ActiveWorkbook.Sheets(Response).Select Wend End Sub
Je m'améliore, non? Et, je suis pas orthodoxe! :D

Merci à nouveau

[Balises "Code" ajoutées par AlainTech]
[Pensez-y vous-même à l'avenir. Merci.:wink: ]

Bravo !
Je réalisais en dînant que j'avais oublié ce petit détail et venais précisément te le dire !
Mais places-le plutôt ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub select_sheet() 
  Dim Msg As String           ' Message du MsgBox 
  Dim Title As String         ' Titre du MsgBox 
   Dim Response As String      ' Réponse du MsgBox 
   ' Boîte de dialogue 
    response = "" 
    Msg = "Entrer le nom de la feuille"      ' Définit le message. 
  Title = "Sélection de feuille"           ' Définit le titre 
  While (response = "" Or Err) And response <> "Faux" 
    err.clear 
    Response = Application.InputBox(Msg, Title, Type:=2) 
    On Error Resume Next  ' <<<====== LA
    ActiveWorkbook.Sheets(Response).Select 
  Wend 
End Sub

Tu y gagneras !
Bien !
Dans une semaine, tu seras apte à en aider d'autres :wink:

31/03/2006, 22h13
SfJ5Rpw8

Citation:

Envoyé par jmfmarques

Bravo !
Je réalisais en dînant que j'avais oublié ce petit détail et venais

pour digérer vérifie ta théorie sur Err.clear en supprimant la ligne :wink:
31/03/2006, 22h15
jmfmarques

Hé ! Bbil, Salut !
Pourquoi ne relis-tu pas le tout 1er message de notre ami ?
Tu comprendras pourquoi il le faut, ce petit copain Err.Clear ! :lol:
31/03/2006, 22h17
méphistopheles

pour ma part, je l'utilise jammais en vb6, mais en exel...
31/03/2006, 22h22
SfJ5Rpw8

Citation:

Envoyé par Aide en ligne Excel

Utilisez la méthode Clear pour effacer de manière explicite le contenu de l'objet Err à la suite du traitement d'une erreur, à l'aide de l'instruction On Error Resume Next par exemple. La méthode Clear est appelée automatiquement dès que l'une des instructions suivantes est exécutée :

Tout type d'instruction Resume

Exit Sub, Exit Function, Exit Property

Toute instruction On Error
(..)
31/03/2006, 22h29
jmfmarques

Ah ?
Tu crois ?
Alors : pourquoi, malgré le On error placé dans le code de hdidan, celà ne fonctionnait plus la 2ème fois ? :twisted:
Because c'était déjà TROP TARD, PARDI ! :lol:
Et on ne prend de toutes façons jamais ce risque là . ERR.CLEAR SYSTEMATIQUEMENT !!!!!
31/03/2006, 22h32
SfJ5Rpw8

Citation:

Envoyé par jmfmarques

Ah ?
Tu crois ?
Alors : pourquoi, malgré le On error placé dans le code de hdidan, celà ne fonctionnait plus la 2ème fois ? :twisted:
Because c'était déjà TROP TARD, PARDI ! :lol:
Et on ne prend de toutes façons jamais ce risque là . ERR.CLEAR SYSTEMATIQUEMENT !!!!!

? parce-que cela fonctionnait avec le Err.Clear ?? ...
31/03/2006, 22h34
jmfmarques

Non ! Car non mis à l'endroit stratégique :lol:
mais .... stoppons là .... :lol:
EDIT : Je te laisse simplement, pour finir, et après avoir tout relu, deviner ce que donnerait un passage par le on error resume next, une erreur renvoyant à l'inputbox... et un abandon par "Faux"..... L'err.number resterait présent en mémoire... et tu courerais le risque, en gérant mal plus loin une autre erreur, de te planter joliment !... Mais laisse maintenant !
31/03/2006, 22h47
méphistopheles

à-t'on résolu son problème???

je suis un peu perdu là... :?
31/03/2006, 22h48
jmfmarques

Problème super résolu, oui ! Mais tag RESOLU toujours pas là :lol:
31/03/2006, 22h59
hdidan

Citation:

Envoyé par jmfmarques

Bravo !
Tu y gagneras !
Bien !
Dans une semaine, tu seras apte à en aider d'autres :wink:

Encore une fois merci pour ton aide et ton encouragement.
Et comme dit le vieux adage : "la connaissance est la seule chose qui s'enrichit en la partageant" :)
31/03/2006, 23h04
jmfmarques

mets le tag RESOLU ou on va tous se faire gronder ! :!:

bon j'ai trouvé la solution au probléme initial .. dans l'aide en ligne excel... c'est un resume qu'il faut:

Citation:

Envoyé par Aide en ligne excel

On error Goto (...)
Remarques

En l'absence d'instruction On Error, toute erreur d'exécution est fatale ; un message d'erreur apparaît et l'exécution s'arrête.

Un gestionnaire d'erreurs est "validé" lorsqu'il a été désigné par une instruction On Error ; le gestionnaire d'erreurs "actif" est un gestionnaire validé qui traite une erreur. Si une erreur se produit alors qu'un gestionnaire d'erreurs est actif (c'est-à-dire entre la ligne où survient une erreur et une instruction Resume, Exit Sub, Exit Function ou Exit Property), le gestionnaire d'erreurs de la procédure en cours ne peut gérer l'erreur. Le contrôle revient à la procédure appelante
(..)

tiens voila le code de hdidan modifié qui fonctionne... (même si pas trés joli)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 Sub select_sheet() Dim Msg As String ' Message du MsgBox Dim Title As String ' Titre du MsgBox Dim Response As String ' Réponse du MsgBox Début: ' Boîte de dialogue Msg = "Entrer le nom de la feuille" ' Définit le message. Title = "Sélection de feuille" ' Définit le titre. If Err.Number <> 0 Then Resume Suite Suite: Response = Application.InputBox(Msg, Title, Type:=2) If Response = "" Then GoTo Début End If If Response <> "Faux" Then On Error GoTo Début ActiveWorkbook.Sheets(Response).Select End If End Sub

31/03/2006, 23h13
méphistopheles

en effet,, c'est carrément moche :lol:

mais que fait le resume en plus du err.clear? 8O
31/03/2006, 23h18
SfJ5Rpw8

Citation:

Envoyé par méphistopheles

mais que fait le resume en plus du err.clear? 8O

ben comme c'est écrit dans le morceau d'aide en ligne plus haut (le 1° ) ... cela ne sert à rien d'appeller explicitement err.clear.. puisque l'appel de celui-ci est déjà efféctué par On Error Goto...

sinon resume termine la gestion d'erreur en cours et permet d'en effectuer une autre ..

Voir 40 message(s) de cette discussion en une page