Copier une feuille plusieurs fois

[isa44]

Bonjour , je cherche à copier une feuille 40 fois en une seule opération.

Comment faire ?

Merci pour votre aide qui me fera gagner du temps.

 

[Fred0o]

Re : Copier une feuille plusieurs fois

Bonjour isa 44,

A moins d'utiliser une macro, je ne vois pas de solution :

Sub Copie40()
    Dim i As Integer
    For i = 1 To 40
        Sheets("Feuil1").Copy After:=Sheets(i)
    Next
End Sub

A adapter en fonction du nom de ta feuille d'origine. Cette macro peut aussi être modifiée pour renommer automatiquement les feuilles nouvellement créées.

A+

 

[Staple1600]

Re : Copier une feuille plusieurs fois

Bonjour à tous


Une solution par macro (adapter le nom de la feuille à copier)

Sub QuaranteNuancesDeFeuilles()
Dim i As Byte
Application.ScreenUpdating = False
For i = 1 To 40
Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
Next i
End Sub

EDITION: Bonjour FreDOo , désolé pour la collision