Créer plusieurs feuilles d'un coup

[Alphonss]

Bonjour,

Je voudrais simplement savoir comment peut-on créer par exemple 150 feuilles dans un classeur en une seule commande. Ou plutôt est-ce que cela est possible ou alors quelle est la technique la plus rapide, car pour l'instant je me contente d'insérer les feuilles une par une, ou alors de les selectionner toutes et de les copier ce qui est néanmoins assez long.

Merci d'avance.

Alphons

 

[Robert]

Re : Créer plusieurs feuilles d'un coup

Bonjour Alphonss, bonjour le forum,

Cette petite macro peut-être :

Sub Macro1()
Application.ScreenUpdating = False
For x = 1 To 150
    Sheets.Add after:=Sheets(Sheets.Count)
Next x
Application.ScreenUpdating = True
End Sub

 

[jp14]

Re : Créer plusieurs feuilles d'un coup

Bonjour Alphonss
Salut Robert

Un code trouvé sur le forum.
En remerciant son auteur.

With Application
    .SheetsInNewWorkbook = 150
        Workbooks.Add
   .SheetsInNewWorkbook = 4 ' pour éviter d'avoir 150 feuilles à chaque création
End With

JP

 

[13GIBE59]

Re : Créer plusieurs feuilles d'un coup

Bonjour tout le monde. 🙂

Encore plus simple :

Outils -> options, onglet "général", régler ' Nombre de feuilles de calcul par nouveau classeur ' sur le nombre souhaité.

 

[Alphonss]

Re : Créer plusieurs feuilles d'un coup

Et bien c'est parfait.
Merci beaucoup à vous et bonne fin d'aprem.

Alphons