Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Nommer une feuille

  • Initiateur de la discussion Pierre
  • Date de début
P

Pierre

Guest
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

Gérard DEZAMIS

Guest
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
 
P

Pierre

Guest
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?
 
T

Temjeh

Guest
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
 
P

Pierre

Guest
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
 

Discussions similaires

Réponses
5
Affichages
274
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…