XL 2016 dupliquer feuille avec incrementation

[michokette]

Bonjour le forum
j'ai un fichier avec une macro qui me duplique les feuilles modèles noms
Actuellement je suis obligé de taper à chaque fois le nom de la feuille a dupliquer
je souhaiterai si cela est possible que l'inputbox soit directement alimenté par le nom de l'onglet et qu'il soit automatiquement incrémenté
Ainsi il y aurait bouchez1, dondini1...ect
En vous remerciant par avance de vos réponses

 

[Staple1600]

Bonjour

Une possibilité
En étant sur la feuille à dupliquer
(pour faire mon test, la feuille active était : bouchez02)

Sub TEST_dupliquer()
Dim X$
X = ActiveSheet.Name
Nom = Mid(X, 1, Len(X) - 2)
Numero = Val(Right(X, 2))
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nom & Format(Numero + 1, "00")
End Sub

Résultat obtenu
La feuille dupliquée a pour nom: bouchez03

NB:
Conseil dominical en passant
Si les noms dans ton fichier ne sont pas fictifs, pour ta prochaine question penses à joindre un fichier anonymisé
(voir point RGPD de la charte du forum)

 

[michokette]

Bonjour Staple 1600

Tout d'abord merci d'avoir pris le temps de me lire et surtout d'apporter une solution à ma question
Même si l'incrémentation n'apparait pas un inputbox, ce que vous me proposez me convient très bien
Je vous souhaite de passer une agréable semaine
Bien cordialement

 

[Staple1600]

Bonsoir le fil,

Je ne me suis dit qu'on pouvait passer l'étape de l'InputBox
(Tant que le nom des feuilles ont ce format : patronyme## où ## représente un nombre de chiffres.)