Macro Excel: Nom de l'onglet en "A1"
Résolu
Bonjour,
mon titre résume assez bien mon problème :)
J'aimerai que lorsque je copie,duplique ou cré un onglet (une feuille), la macro ci-dessous s'execute:
Sub Worksheet_Activate()
Range("A1") = ActiveSheet.Name
End Sub
Je n'arrive pas a trouver la synthaxe pour celà.
Merci par avance pour votre aide!
Cordialement,
mon titre résume assez bien mon problème :)
J'aimerai que lorsque je copie,duplique ou cré un onglet (une feuille), la macro ci-dessous s'execute:
Sub Worksheet_Activate()
Range("A1") = ActiveSheet.Name
End Sub
Je n'arrive pas a trouver la synthaxe pour celà.
Merci par avance pour votre aide!
Cordialement,
4 réponses
-
ContributeurBonjour,
Private Sub Workbook_SheetActivate(ByVal Sh As Object) [A1] = Sh.Name End Sub
eric -
Salut,
Si j'ai bien compris la demande
clic droit sur un onglet de feuille/visualiser le code/dans la marge de gauche (explorateur de projet) tu remarquera Thisworkbook l'ouvrir la Thisworkbook (avec un double clic)
et colle ce code qui affichera en A1 de chaque feuille le nom de l'onglet à chaque activation de la feuille
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("A1") = ActiveSheet.Name
End Sub -
Pas compris ... quand tu crée un onglet tu veux qu'une macro se lance ?
-
Bonjour,
Alors tout d'abord, merci pour vos réponse. La macro fonctionne dans les 2 cas, mais aucun des codes ne contient l'evenement qui la déclanche automatiquement.
Autrement dit, quand je click droit onglet 2 -> Move or Copy -> Créer une copie après tel ou tel onglet existant... Bim l'onglet est créé, mais je dois aller dans le gestionnaire de macro pour la lancer car elle ne se lance pas toute seule...
