Ajout d'un nombre important de feuilles

[corinthien]

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.

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

 

[CBernardT]

Re : Ajout d'un nombre important de feuilles

Bonsoir corinthien,

une solution :

Sub Macro1()
For Y = 1 To 55
Application.ScreenUpdating = False
Sheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Name = "00" & Y
ActiveSheet.Tab.ColorIndex = Y
Next
End Sub

 

[corinthien]

Re : Ajout d'un nombre important de feuilles

Merci Bernard pour ta réponse, juste une remarque : pourquoi répéter 55 fois Application.ScreenUpdating = False

Sub Macro1()
For Y = 1 To 55
[COLOR="Red"]Application.ScreenUpdating = False[/COLOR]
Sheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Name = "00" & Y
ActiveSheet.Tab.ColorIndex = Y
Next
End Sub

Sub Macro1()
[COLOR="Red"]Application.ScreenUpdating = False[/COLOR]
For Y = 1 To 55
Sheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Name = "00" & Y
ActiveSheet.Tab.ColorIndex = Y
Next
End Sub

Encore une fois merci.

 

[job75]

Re : Ajout d'un nombre important de feuilles

Bonsoir corinthien, Bernard,

Bernard ne répondra pas car il est rongé de honte

Je plaisante bien sûr, même les plus chevronnés font ce genre de lapsus, la preuve.

A+

 

[CBernardT]

Re : Ajout d'un nombre important de feuilles

Re,

Bonne remarque et excellente rectification. J'ai écris un peu vite.

Sub Macro1()
Application.ScreenUpdating = False
For Y = 1 To 55
Sheets.Add after:=Sheets(Worksheets.Count)
ActiveSheet.Name = "00" & Y
ActiveSheet.Tab.ColorIndex = Y
Next
End Sub

Edit : salut job75, c'est vrai l'erreur est humaine, A+

 

[corinthien]

Re : Ajout d'un nombre important de feuilles

Bonjour Bernard et job75, c'est vrai que l'erreur est humaine et je ne suis pas à l'abri d'en faire aussi.

Mon soucis était beaucoup plus important que l'ajout de 55 feuilles (~2000), pour lister les dossiers, sous-dossiers et fichiers, chose que la version x64 d'Excel refusait (blocage à environ 380 feuilles).

Par contre, la version x86 les ajoute sans rechigner…

Aller savoir pourquoi.

Bernard, vas en paix, je te pardonne.

Gérard