corinthien
XLDnaute Nouveau
Bonjour, bonsoir le forum, existe t'il un moyen plus 'propre' ou 'rapide' d'écrire ce bout de code pour insérer un nombre de feuilles important ?
(j'ai simplifié le code pour que ce soit plus clair, les noms réels des feuilles et les couleurs d'onglets sont rangés dans un tableau)
Merci de votre aide.
(j'ai simplifié le code pour que ce soit plus clair, les noms réels des feuilles et les couleurs d'onglets sont rangés dans un tableau)
Merci de votre aide.
Code:
For Y = 1 To 55
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Right("00" & Y,4)
Sheets(Right("00" & Y,4)).Tab.ColorIndex = Y
Next