XL 2016 Dupliquer une feuille avec une numérotation automatique

  • Initiateur de la discussion Initiateur de la discussion JSP22
  • Date de début Date de début

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 !

JSP22

XLDnaute Nouveau
Bonjour à tous,
Je me prends la tête à vouloir monter une macro qui me permettrait de dupliquer une feuille à partir d'une feuille modèle et le tout avec une numérotation automatique en testant le numéro de la dernière feuille !
Je ne sais pas si je suis clair 🙂
Dans mon fichier, j'ai donc une feuille qui se nomme "Modèle" puis la feuille n°1. Lorsque je lance la macro, je souhaiterai dupliquer la feuille "modèle" et qu'elle se nomme "2" puis à chaque lancement de la macro, les feuilles se créent et s'incrémentent 3, 4, 5, etc...
Ma macro actuelle me permet de dupliquer mais du coup le nom de la feuille est Modèle (2), Modèle (3), etc... 😭

Si quelqu'un a une petite astuce !

Merci à vous !
 
Bonsoir @JSP22,

Cliquer sur le bouton bleu de la feuille modèle.

Via macro dont le code est dans Module1 :
VB:
Sub NePasCopier()
Dim onglet, max&, dernier$

   For Each onglet In Worksheets
      If Val(onglet.Name) > max Then max = Val(onglet.Name): dernier = onglet.Name
   Next onglet
  
   If max = 0 Then
      Worksheets("Modèle").Copy after:=Worksheets("Modèle")
   Else
      Worksheets("Modèle").Copy after:=Worksheets(dernier)
   End If
   ActiveSheet.Name = max + 1
   ActiveSheet.Shapes("NePasCopier").Delete
End Sub
 

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
3
Affichages
329
Retour