Nommer une feuille

[Pierre]

Bonjour à tous

Voici mon petit probleme:

Je voudrait renommer une feuille en fonction d'un nom que je rentre dans une case d'un tableau.

Est il possible de le faire sans macro ou faut'il en faire une? Quelqu'un aurait'il une solution a me proposer?

Merci d'avance pour vos reponse.

 

[Gérard DEZAMIS]

Bonjour Pierre

Une 'formule' Alain Valon B)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
For Each sht In ActiveWorkbook.Worksheets
Sheets(sht.Name).Name = Sheets(sht.Name).[A1]
Next
End Sub
A placer dans WorkBook avec Alt F11 (VBE)

actualisera le nom de ta feuille en fonction ici de la valeur de la cellule A1

@+ GD

 

[Pierre]

Bonjour Gérard

Je te remercie pour ta macro qui effectivement fonctionne tres bien mais en fait la feuille que je voudrait nomer n'est pas la feuille où se trouve mon tableau. Quels serait les modifications à apporter à ta macro pour que cela puisse fonctionner?

 

[Temjeh]

Bonjour Pierre
Mes hommage Gérard

Ptêtre ceci qui nomme la feuil en fonction de valeur de cell

ActiveSheet.Name = Range('A1').Value

Sheets('La feuil').Name = Range('A1').Value

A++

Temjeh

 

[Pierre]

Je vous remercie tous pour vos reponses.

En tatonant avec vos differentes reponse j'ai reussi à faire ma macro.


Pour info je vous les notes ci apres:
La 1ere prend en compte le nom qu'il y a de marqué ds ma cellule et la 2éme permet de reinitialiser le nom des feuilles

Sub Change_Nom_Stat_Joueurs()
'
Dim Nom_Stat_Eq As String

'
'Nommer la feuille Stat_Joueurs_E1

Sheets('Effectif').Select
Nom_Stat_Eq = Range('Nom_Stat_Joueur_E1')
Sheets('Stat_Joueur_E1').Select
Sheets('Stat_Joueur_E1').Name = Nom_Stat_Eq
Sheets('Sommaire').Select
End Sub

Sub Init_Nom_Stat_Joueurs()
'
Dim Nom_Stat_Eq As String
Dim Init_Nom_Stat_Eq As String
'
'Nommer la feuille Stat_Joueurs_E1

Sheets('Effectif').Select
Nom_Stat_Eq = Range('Nom_Stat_Joueur_E1')
Init_Nom_Stat_Eq = Range('Init_Stat_Joueur_E1')
Sheets(Nom_Stat_Eq).Name = Init_Nom_Stat_Eq
Sheets('Sommaire').Select
End Sub

Encore merci pour votre aide