XL 2016 Dupliquer une feuille avec une numérotation automatique

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 !
 

mapomme

XLDnaute Barbatruc
Supporter XLD
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

  • JSP22- dupliquer & renommer feuille- v1.xlsm
    19.2 KB · Affichages: 5
Haut Bas