Microsoft 365 Copier et renommer onglets par VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

grisouille

XLDnaute Nouveau
Bonjour,

J'ai un fichier avec un onglet que je voudrai dupliquer un certain nombre de fois et renommer en même temps les onglets crées qui peuvent avoir des noms quelconques chacun. Puis à partir des onglets nouvellement crées j'aimerai les récapituler les uns à la suite des autres sur un autre onglet.
Merci pour votre aide.
 

Pièces jointes

bonjour

pour copier l'onglet "Prog" x fois

VB:
sub test()
x=5 'nombre de copies
for i= 1 to x
sheets("Prog").copy after:=sheets(Sheets.count) 'on copie l'onglet Prog et on le place en dernier
activesheet.name="Nom" &i 'on renomme l'onglet qui vient d'etre créé
next i
end sub
 
Merci à vous deux pour vos réponses.
Pour la solution de vgendron, il faut aller modifier le nb (qui est aléatoire suivant les besoins) à chaque fois dans la macro.
J'ai fait une macro (module 3) qui me permet de déterminer le nb mais je voudrais renommer les onglets en même temps (les noms peuvent être quelconques).
Pour la récapitulation je ne vois pas en quoi la structuration gêne. Je voudrai recopier les onglets (le nb de lignes peut être différent) créés les uns à la suite des autres avec un saut d'une ligne entre chaque.
J'ai oublié de préciser dans mon premier fichier que j'ai un onglet (dans l'exemple Feuil1) que je ne veux pas voir apparaître dans la récap.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
690
Retour