J’ai un fichier (ci-joint) avec une cellule qui génère le nom de mes onglets
Grace à un bouton je fais une copie de la feuille par macro et il m’incrémente automatiquement le nom de ma feuille. Cela marche très bien.
Le hic c’est que si je copie la feuille par l’onglet (+ctrl) le nom en cellule qui génère la feuille n’est pas renommer et l’erreur se produit !
L’idéal serait de pouvoir bloquer la possibilité de copier par l’onglet mais je ne sais pas si c’est possible ?
Ou alors de renommer la cellule « D1 » au moment de la copie par l’onglet ?
Re : Copie d'onglet avec nom généré par une cellule
Bonsoir fred2705,
A placer dans ThisWorkbook :
Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name Like "Contact*)" Or Sh.Name Like "Con*ecteur*)" Then
Application.DisplayAlerts = False
Sh.Delete
End If
End Sub
Vous avez mis 3 "n" à "Connnecteur", mettez-en 10 si vous voulez...
Re : Copie d'onglet avec nom généré par une cellule
Bonsoir Job75,
Effectivement 2n à connecteur suffiront
Merci ce code fonctionne bien, mais mes deux onglets (contact et connecteur) vont évoluer et on pourra ce retrouver avec des noms totalement différents! Dans ce cas y a t'il une autre solution?
Re : Copie d'onglet avec nom généré par une cellule
J'ai essayé avec le code ci dessous: Il ne copie plus par l'onglet ça c'est ok, par contre lorsque je lance la copie par le bouton macro, il fait la copie sur la dernière feuille qui existe déjà ! Arggh!
Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name Like "*)" Then
Application.DisplayAlerts = False
Sh.Delete
End If
End Sub