Discussion :

[bernard0828]

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 :

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

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

[tirex28]

Bonsoir,

Pour rester dans ton idée:

Code :

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

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 :

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

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 :

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

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/

[cavo789]

Code :

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

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

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