On Error GoTo qui ne fonctionne qu'une fois

Version imprimable

Voici une petite macro VB6 sous excel 2003 qui pour moi aurait dû créer 10 feuilles de H1 à H10, et qui ne crée que H1 puis le programme plante sur la ligne Sheets("H" & a$).Select, bien qu'elle soit derrière un on error.
Y a t il quelqu'un qui puisse m'aider ?
Ce doit être bête comme chou, mais ......Merci d'avance
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 For i = 1 To 10 a$ = i On Error GoTo feuille Sheets("H" & a$).Select GoTo feuille_cree feuille: Sheets.Add x$ = ActiveSheet.Name Sheets(x$).Name = "H" & a$ Sheets("H" & a$).Select feuille_cree: Next i

Bonsoir,

Pour rester dans ton idée:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    On Error GoTo feuille
    For i = 1 To 10
        a = i
        Sheets("H" & a).Select
    Next i
Exit Sub'Pour eviter la gestion d'erreur si aucune erreur ne se produit
feuille:
    Sheets.Add
    x = ActiveSheet.Name
    Sheets(x).Name = "H" & a
    Sheets("H" & a).Select
    Resume Next'Pour reprendre apres la ligne ayant causé l'erreur

Pour faire un peu plus court:

Code:

1
2
3
4
5
6
7
8
9
10
 
    On Error GoTo feuille
    For i = 1 To 10
        Sheets("H" & i).Select
    Next i
Exit Sub
feuille:
    Sheets.Add
    ActiveSheet.Name = "H" & i
    Resume Next

Et pour faire plus lisible (à mon avis)

Code:

1
2
3
4
5
6
7
8
9
 
    On Error Resume Next
    For i = 1 To 10
        Sheets("H" & i).Select
        If Err.Number <> 0 Then
            Sheets.Add.Name = "H" & i
            Err.Clear
        End If
    Next

Cordialement,

Tirex28/

Citation:
Envoyé par tirex28
Code:

1 2 3 4 5 6 7 8 9 On Error Resume Next For i = 1 To 10 Sheets("H" & i).Select If Err.Number <> 0 Then Sheets.Add.Name = "H" & i Err.Clear End If Next
:king:

Non seulement c'est plus lisible mais c'est surtout plus propre : les GOTO sont à éviter comme la peste car cela fait "programmation spaghetti" (c'est ce qu'on enseigne aux futurs programmeurs).