Copier une feuille plusieurs fois

isa44

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Re : Copier une feuille plusieurs fois

Bonjour isa 44,

A moins d'utiliser une macro, je ne vois pas de solution :
VB:
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

XLDnaute Barbatruc
Re : Copier une feuille plusieurs fois

Bonjour à tous


Une solution par macro (adapter le nom de la feuille à copier)
Code:
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
 

Discussions similaires

Réponses
4
Affichages
77
Réponses
56
Affichages
907

Statistiques des forums

Discussions
311 729
Messages
2 081 970
Membres
101 852
dernier inscrit
dthi16088