excel nommer une feuille Résolu/Fermé

Question

Bonjour,
comment nommer une feuille avec le texte d'une cellule de cette meme feuille
merci d'avance

Kokliko · Accepted Answer

Bonsoir,

Si tu veux dire donner un nom précis aux onglet en bas d'excel qui s'intitulent respectivement feuille avec un numéro il suffit de faire un clic droit sur cet onglet et de séléctionner renommer puis te mettre le nom choisi.

@+

150pado · Answer

bonsoir

non j'aimerais que la feuille ce nome automatiquement du meme non que celui de de la cellule exemple A1
as tu une idée

m@rina · Answer

Bonjour

C'est tout bête : tu mets cette macro dans la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = Range("A1").Value
End Sub

tu remplaces A1 par la cellule qui doit contenir le nom

m@rina

150pado · Answer

m@rina
  tu la mets ou dans la feuille

150pado · Answer

MERCI
ok   cela fonctionne très bien ,mais il faut recopier sur chaque feuille  y a t-il une possibilité d'une macro pour le classeur complet ?

150pado · Answer

m@rina
autre problème a resoudre

je recherche à réaliser une liste déroulante de lien hypertexte sur une feuille excel afin de la copier sur les 54 feuilles de mon classeur pour me faciliter l'accés a chaque feuille et étre quitte de chercher les onglets en bas du classeur auriez vous une solution a me proposer
merci d'avance

150pado · Answer

bonjour popou79

merci pour ton aide cela fonctionne j'avance pas a pas,mais il faut execute la macro du module quand on est sur chaque feuille ( amélioration possible?, mettre la liste par ordre alphabetique possible? ,mise a jour de la liste des feuilles en colonne E automatique quand on rennome possible ?).
 pour info j'utilise cette macro pour nommer mes feuilles en fonction d'une cellule ,merci "n@rma":

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = Range("A1").Value
End Sub

crapoulou · Answer

J'ai une question concernant les macros sur mon post ici si quelqu'un désire bien volontiers m'aider.
Merci!
http://www.commentcamarche.net/forum/affich 7777587 macro

Papou79 · Answer

Bonsoir 150pado,

Grace à Eriic, j'ai pu créer un lien pour mon fichier sur ci-joint :

https://www.cjoint.com/?iFwAaC8sEt

Je te présente rapidement ma solution :

J'ai créé un Userform qui affiche en permanence une liste déroulante triée par ordre alphabétique, sans toucher à l'ordre des feuilles.
Je trouve cette solution plus élégante et plus souple qu'une combobox sur chaque feuille, et je pense que tu n'auras aucun mal à l'adapter à ton application.

Espérant t'avoir aidé, et restant à ta disposition.

Cordialement.

Ttinmarr · Answer

Bonjour,

Je rebondis sur la première question de 150pado:
- "comment nommer une feuille avec le texte d'une cellule de cette meme feuille?"
- la réponse de marina est parfaite:

"Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
ActiveSheet.Name = Range("A1").Value 
End Sub 

tu remplaces A1 par la cellule qui doit contenir le nom 

m@rina"

Savez quelle est la modification à effectuer qd on désire nommer une feuille avec le texte d'une cellule d'une autre feuille de calcule?

Merci bcp d'avance

michel_m · Answer

bonjour
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = sheets("nomdelafeuille").Range("A1").Value
End Sub 
Cordialement, Michel

leplot · Answer

Bonjour

Il sufit de faire référence à la feuille désirée
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = activeworkbook.sheets("feuille_désirée).Range("A1").Value
End Sub 

(j'ai saisi directement dans le post donc il peut y avoir une erreur de syntaxe)


LePlot
N'oubliez pas de mettre le statut en Résolu lorsque la solution a été trouvée. Merci

Ttinmarr · Answer

Merci pour la réponse.

Toutefois, maintenant il me signale une erreur:
"Nom ambigu detecté: Worksheet_SelectionChange"

Je reconnais être un peu paumé

leplot · Answer

salut

colle ton code que je puisse vérifier

Ttinmarr · Answer

Sub Onglets()
'
' Onglets Macro
' Macro enregistrée le 24/03/2009 par
'

'
    Sheets("Intervenant n°1").Select
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Name = Sheets("Hypothèses").Range("B5").Value
    Sheets("Intervenant n°2").Select
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Name = Sheets("Hypothèses").Range("C5").Value
    
End Sub

leplot · Answer

Re,

Sub Onglets()
'
' Onglets Macro
' Macro enregistrée le 24/03/2009 par
'

'
Sheets("Intervenant n°1").Name = Sheets("Hypothèses").Range("B5").Value
Sheets("Intervenant n°2").Name = Sheets("Hypothèses").Range("C5").Value

End Sub

Dans ton code tu avais copier la définition des sub ("Private sub...) donc cela ne pouvait pas marcher.
dans le code précédent c'était un code qui se lancait sur un changement dans la feuille : événement "Worksheet_SelectionChange". 
LePlot
_________________________________________________________________
N'oubliez pas de mettre le statut en Résolu lorsque la solution a été trouvée. Merci

Ttinmarr · Answer

Merci bcp!
Bonne journée

Excel nommer une feuille

17 réponses

Discussions similaires