Dupliquer une feuille

[alain18]

Bonjour à tous,
J'ai créé un document (sur une feuille nommée 2012) qui comprend de nombreuses formules, des cellules fusionnées, des barres de défilements, des cases à cocher ainsi que des boutons de commandes macro. Je souhaiterais créer un document totalement identique sur une autre feuille (nommée 2013, puis 2014, etc...)
Ma question est la suivante: cela est -il réalisable avec une macro qui déclencherait la création de cette nouvelle feuille ?
Je ne joins pas de fichier pour l'instant (mon original), toutefois si cela est possible, je pourrais en créé un qui serait semblable à mon projet afin que vous puissiez me conseiller.

Par avance je vous remercie.

 

[CBernardT]

Re : Dupliquer une feuille

Bonjour alain18,

Si j'ai bien compris :

1- Cliquer droit sur le nom de l'onglet, ici 2012
2- Cliquer gauche sur Déplacer ou copier
3- Cocher la case à cocher en bas à gauche "Créer une copie"
4- Faire "Ok"
5- Renommer le nouvel onglet "2012(2)" en 2013 et voila 🙂

Si tu veux vraiment le faire par macro, sers-toi de l'enregistreur de macro 😎

Sub DupliquerOnglet()
Sheets("2012").Copy Before:=Sheets(1)
Sheets("2012 (2)").Name = "2013"
End Sub

 

[alain18]

Re : Dupliquer une feuille

Bonjour CBernardT,
Merci pour cette méthode que j'ignorais totalement. Cela fonctionne parfaitement.
Toutefois il y a peut ètre une macro à définir plus particulièrement pour effectuer la duplication de cette feuille 30 ou 40 fois en augmentant d'1 unité chaque onglet créé (2013, 2014, 2015,etc...). Ceci éviterait un travail fastidieux.
Les spécialstes des macros doivent bien avoir une petite idée...
Merci de votre aide.

 

[ROGER2327]

Re : Dupliquer une feuille

Bonjour à tous

Ceci, peut-être ?​

Sub DupliquerOnglet()
Dim i%
    For i = 2013 To 2020 'Ajuster ad libitum.
        Sheets("2012").Copy Before:=Sheets(1)
        ActiveSheet.Name = CStr(i)
    Next
End Sub

ROGER2327
#5787

Lundi 23 Clinamen 139 (Locus Solus - Vacuation)
25 Germinal An CCXX, 5,4611h - pigeon
2012-W15-6T13:06:24Z

 

[CBernardT]

Re : Dupliquer une feuille

Re,

Salut ROGER2327,

Une petite variante :

Sub DupliquerOnglet()
Dim x As Integer
With Sheets("2012")
' Définition de la boucle de création des copies
For x = 2013 To 2020
.Copy after:=Sheets(CStr(x - 1)) ' Copier en dernier la feuille de base 2012
Sheets("2012 (2)").Name = CStr(x) ' Renommer les nouvelles feuilles
Next x
End With
End Sub

 

[alain18]

Re : Dupliquer une feuille

Bonjour ROGER2327
Merci pour ce code qui fonctionne parfaitement. J'ai seulement remplacer "Bifore" par "After" pour dupliquer après 2012, mais voila tous les onglets créés sont dans l'ordre décroissant (même avec "Bifore"). Serait il possible que ceux-ci se retrouvent dans l'orde croissant (2013, 2014, 2015, etc...)
Par avance, je te remercie.

 

[alain18]

Re : Dupliquer une feuille

RE,
Merci également à CBernardT que je n'avais pas vu quand j'ai posté.
Effectivement cette variante permet de classer les onglets dans le bon ordre.
Je regarde tout ça plus tard sur le fichier orginal.
Merci à tous les deux et à très bientôt... sans doute !!
Cordialement.