XL 2016 Dupliquer une feuille avec une numérotation automatique

JSP22 · 12 Mars 2021

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 · 12 Mars 2021

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

XL 2016 Dupliquer une feuille avec une numérotation automatique

JSP22

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires