T
titus
Guest
Bonjour à tous
Situation: un classeur avec 12 feuilles (janvier à décembre)
Private Sub Workbook_Open()
Worksheets("Janvier").Range("A1:A48").Name = "JAesp"
Worksheets("Février").Range("A1:A48").Name = "FEesp"
'repété n fois jusqu'en décembre
End Sub
J'aimerais optimisé le code ci dessus avec un truc du style
For I=1 to 12
Worksheets(I).Range("A1:A48").Name=Left(Format(I, "mmmm"),2) & "esp"
Next I
Mais pour le moment ca ne fonctionne pas
Quelqu'un pourrait-il m'indiquer une piste pour arriver à mes fins?
Merci
Situation: un classeur avec 12 feuilles (janvier à décembre)
Private Sub Workbook_Open()
Worksheets("Janvier").Range("A1:A48").Name = "JAesp"
Worksheets("Février").Range("A1:A48").Name = "FEesp"
'repété n fois jusqu'en décembre
End Sub
J'aimerais optimisé le code ci dessus avec un truc du style
For I=1 to 12
Worksheets(I).Range("A1:A48").Name=Left(Format(I, "mmmm"),2) & "esp"
Next I
Mais pour le moment ca ne fonctionne pas
Quelqu'un pourrait-il m'indiquer une piste pour arriver à mes fins?
Merci