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