Discussion :

[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 :

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

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.

[SfJ5Rpw8]

tu peu remplacer .. ton Goto Ligne2 par :

Code :

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

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"

[SfJ5Rpw8]

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

Code :

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

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 :

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

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.

[SfJ5Rpw8]

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 :

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
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

[skk201]

Bonjour,

je viens moi-même de tombé dans un prolbème similaire. Et après une recherche j'ai réussi à trouver un solution dans le MSDN.

Enfaite il suiffis de "réinitialiser" le On Error grâce à l'écriture

Code :

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

On Error GoTo -1

Exemple :

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 Sectry
1 = 3 ' Il y a un erreur
Sectry:
Msgbox "Le premier essai n'a pas marché"
On Error Goto -1
On Error Goto Lastry
2 = 3 ' Il y a une erreur
Lastry:
Msgbox "Le 2e essai n'a pas marché"
End sub

Ce n'est pas un code très concret mais au moins il permet de voir que on error marchera 2 fois (et même plus) dans ce cas là.

J'espère avoir aider qqun.

bonne journée !

[Marc-L]

Bonjour,

il y a eu une discussion récente dans le forum Excel ou son sous-forum Macros,
cette astuce utilisée à mauvais escient peut déclencher une boucle sans fin !