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
Une possibilité
En étant sur la feuille à dupliquer
(pour faire mon test, la feuille active était : bouchez02)
VB:
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)
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
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.)