Nommer onglet cellule A1 de toutes les feuilles

[toune21]

Bonjour à tous,

J'ai cherché depuis ce matin,

J'ai trouvé cette macro : elle est dans la feuille 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
ActiveSheet.Name = Target: End If
End Sub

Comment faire pour tous mes onglets sans répéter cette macro à chaque feuille ?
25 onglets, toujours faire référence à A1.

Merci pour votre aide
Et bonne journée.
MM

 

[Pierrot93]

Re : Nommer onglet cellule A1 de toutes les feuilles

Bonjour,

peut être ceci, à placer dans le module "thisworkbook", enfin si j'ai bien compris :

Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then Sh.Name = Target
End Sub

bonne journée
@+

 

[Pierrot93]

Re : Nommer onglet cellule A1 de toutes les feuilles

Re,

peut être mettre un "On Error Resume Next" au cas ou les valeurs saisies en A1 ne pourraient être acceptées comme nom de feuille...

Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$1" Then Sh.Name = Target
End Sub

 

[toune21]

Re : Nommer onglet cellule A1 de toutes les feuilles

Bonjour Pierrot,

Tu as tout compris.
Cela fonctionne parfaitement.
"c'est pour mes recettes de gâteaux" "Langues de chat" ci joint.

Bonne journée.
MM

 

[toune21]

Re : Nommer onglet cellule A1 de toutes les feuilles

Re,

D'accord pour la modif, tu as raison.

Et encore Merci.
MM