Multiplier une feuille

J’aimerais multiplier une feuille de calcul en plusieurs exemplaires dans le même fichiers. Je veux multiplier la feuille ''CLASSEMENT1"
Je demande une aide. Voici le document
Documents à lier2 (1).xlsx (374,4 Ko)

Bonsoir Promarco,

fait un clic droit sur l’onglet "CLASSEMENT1", puis dans le menu contextuel,
sélectionne l’item "Déplacer ou copier…" ➯ fenêtre du même nom.

dans la liste déroulante de « Avant la feuille : », sélectionne la feuille pour
laquelle la nouvelle feuille sera insérée avant ; par exemple :

CLASSEMENT DU 2ème TRIMESTRE

coche la case à cocher qui est sous la liste : :ballot_box_with_check: Créer une copie

clique sur le bouton "OK" ➯ c’est fait : tu as une feuille identique,
qui est devenue la feuille active, dont le nom est :

"CLASSEMENT1 (2)"

je n’ai pas joint le fichier ; fais ce que j’ai indiqué ; c’est mieux,
car ça t’aidera à retenir la manip.

si tu veux le faire par VBA, regarde la solution de @Cow18.

1 « J'aime »
Sub Classement()
     Dim i
     For i = 1 To 10
          Sheets("Classement1").Copy before:=Sheets("CLASSEMENT DU 2ème TRIMESTRE")
     Next
End Sub

EDIT : salut rhodo, c’est la même solution et en même temps, mais automatisée :innocent:

2 « J'aime »

Ok merci je vais essayer et vous revenir

Bonsoir à tous,

on n’a plus de nouvelles de Promarco, mais c’est normal :
le Père Noël lui fait visiter sa maison (au Pôle Nord).:christmas_tree:

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.