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.

@+

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

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

M@rina
tu la mets ou dans la feuille

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 ?

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

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

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 T'as un problème ? Passe sur CCM!
Il n'y a pas de problème sans solution.

Bonsoir 150pado,

Grace à Eriic, j'ai pu créer un lien pour mon fichier sur ci-joint :

http://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.

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

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

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

Merci pour la réponse.

Toutefois, maintenant il me signale une erreur:
"Nom ambigu detecté: Worksheet_SelectionChange"

Je reconnais être un peu paumé

Salut

colle ton code que je puisse vérifier LePlot
____________________________________________________________­_____
N'oubliez pas de mettre le statut en Résolu lorsque la solut­ion a été trouvée. Merci

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

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

Merci bcp!
Bonne journée