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 : 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.
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
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).
Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.