Problème instruction On error GoTo

Est-il possible de placer l'instruction On error GoTo Etiquette dans une boucle For, apparement je rencontre un problème, lors du premier passage aucun soucis l'instruction me dirige vers ma routine d'erreur, par contre le tour suivant problème ?

 For i = 1 To 9 Step 1
.
.
.
On Error GoTo erreur1
    ActiveChart.SetSourceData Source:=Sheets(Nom_feuille).Range("A1:B" + CStr(Range(ActiveWorkbook.Names("Mots_capteur"))))
    On Error GoTo 0
reprise1:

Next i

Quelqu'un connait-il ce problème ?

en fait, c'est ton nom d'étiquette qui ne va pas
vérifie que ton étiquette existe bel et bien, puis que le nom est "courant"

du genre :
etiquette:
label1:
err1:
toto:
jesaispaskoiencor:


normalement, il n'y a pas de probleme pour mettre des goto dans les for

A+.
Thomas.

pas de problème mais c'est à éviter tout de même quand on peut s'en passer.

le mieux étant d'isoler ici ce qui risque de provoquer une erreur, et d'ajouter les tests adéquats

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Le problème vient du fait qu'un "On Error Goto label" ne permet de gérer effectivement qu'une erreur par fonction ou procédure (si la gestion des erreurs n'est pas remise à zéro par un "Resume").

Or, dans ton code de gestion d'erreur (Label "erreur1:"), tu dois certainement utiliser un "Goto reprise1" pour revenir dans ta boucle "For". Donc, pour ta première occurence, pas de problème, mais pour la seconde, la gestion d'erreur te remonte... Une erreur!

Pour éviter cela, il faut que tu utilises un "Resume reprise1" dans ton code de gestion d'erreur.
Le resultat est le même qu'un "On Error Goto erreur1" mais il y a remise à zéro de la gestion des erreurs et donc possibilité de gérer plusieurs erreurs dans une même fonction ou procédure...


Ce qui te donnera :

For i = 1 To 9 Step 1

{...}

   On Error GoTo erreur1
      ActiveChart.SetSourceData Source:=Sheets(Nom_feuille).Range("A1:B" + CStr(Range(ActiveWorkbook.Names("Mots_capteur"))))
   On Error GoTo 0

{...}

reprise1:
   Next i

{...}

erreur1:

   {... traitement de l'erreur...}

   Resume reprise1