pourquoi on error goto ne fonctionne qu'une seule fois ? [Résolu]

[alsimbad]

bonjour tt le monde. je ne comprend pas pourquoi on error goto fonctionne une fois mais pas deux dans ce bout de code

Code :

1
2
3
4
5
6
7
8
Sub erreur()
ligne2:
On Error GoTo ligne1
Feuil2.Show
MsgBox "on ne dois jamais me voir"
ligne1:
GoTo ligne2
End Sub

userform1 n'existe pas. donc en théorie, je devrais me mettre en boucle
mais en fait, la premiere fois qu'il doit montrer usf1, la gestion d'erreur fonctionne, on ne vois pas le msgbox, et il va a ligne1, mais a la deuxieme, il s'arrete sur l'erreur. " erreur 424, objet requis
j'ai besoin de cette forme plutot que on error resume next parce que justement, je voudrais qu'il y ait d'autres ligne de code apres usf1.show (qui n'est qu'un exemple) au cas ou cette commande fonctionnerais sans erreur.

[bbil]

tu peu remplacer .. ton Goto Ligne2 par :

Code :

1
2
 
Resume ligne2

[alsimbad]

salut bbil
non, ça ça marche pas, j'ai une erreur 420 " reprise sans erreur "
et si j'écris
On Error Resume ligne1
là c'est une erreur de compil " attendu next"

[bbil]

tiens voilà cela fonctionne même si la méthode n'est pas "terrible"...

Code :

1
2
3
4
5
6
7
8
9
10
 
Sub erreur()
ligne2:
On Error GoTo ligne1
UserForm1.Show
MsgBox "on ne dois jamais me voir"
Exit Sub
ligne1:
 If MsgBox("Erreur on continu ", vbYesNo) = vbYes Then Resume ligne2
End Sub

[alsimbad]

non, désolé ça ne marche pas
voici le code exact

Code :

1
2
3
4
5
6
7
8
9
10
Sub déprotege()
For i = 1 To 3
On Error GoTo ligne1
Worksheets("stock" & i).Unprotect Password:="motdepasse"
MsgBox "mot de passe valide"
range ("a1") = "youpi")
ligne1:
MsgBox " mot de passe invalide"
Next i
End Sub

le but est de continuer la macro (youpi)si le mot de passe est valide.
en l'occurence "motdepasse" est faux, donc je dois aller a ligne1, puis passer a i = 2 et c'est a ce momment là que la gestion d'erreur ne fonctionne pas une deuxieme fois. j'ai lu l'aide et il semble qu'il y ait une histoire de desactivation du gestionnaire d'erreur que je ne comprend pas.

[bbil]

ben je vois pas l'instruction resume..?

[SilkyRoad]

bonjour

Je n'ai pas bien compris le fonctionnement de ta macro mais tu peux tester:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Deprotege()
Dim i As Integer
 
On Error Resume Next
 
For i = 1 To 3
    Worksheets("stock" & i).Unprotect Password:="motdepasse"
 
    If Err.Number = 0 Then
        MsgBox "mot de passe valide"
        Worksheets("stock" & i).Range("A1") = "youpi"
        Else
        MsgBox " mot de passe invalide"
    End If
 
    Err.Clear
Next i
End Sub

http://silkyroad.developpez.com/VBA/GestionErreurs/


bon après midi
michel

[alsimbad]

bien, merci a tout les deux
la solution de silkyroad fonctionne, mais c'est space, je comprend pas vraiment, pourquoi il faut faire ça. j'ai essayé en utilisant seulement err.clear ou err.number = 0, mais rien a faire, au deuxieme passage, ça bloque.
bon dimanche