nom de feuille dans une cellule

[Phillip]

Bonjour,

Comment puis-je insérer (simplement ?) dans une cellule le nom de ma feuille ?

Merci

 

[ChTi160]

Salut'Phillip'

Bonjour le Forum
ces formules issue de ce Forum font ce que tu désires
4. Nom de la feuille : 'Feuil1'
=STXT(CELLULE('filename';A1);TROUVE(']';CELLULE('filename';A1))+1;32)
=STXT(CELLULE('filename';A62);TROUVE(']';CELLULE('filename';A62))+1;NBCAR(CELLULE('filename';A62))-TROUVE(']';CELLULE('filename';A62)))
A+++
Jean Marie

 

[ChTi160]

Re 'Phillip'
une posibilité en VBA à l'ouverture du classeur

Private Sub Workbook_Open()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets 'pour Chaque feuille du Classeur
ws.Range('A1').Value = ws.Name 'la cellule A1 prend comme valeur le nom de la feuille
Next 'feuille suivante
Application.ScreenUpdating = False
End Sub
A+++
Jean Marie

 

[PascalXLD]

Bonjour

Juste une petite précision si tu permets Jean-Marie

Pour utiliser les formules et avoir le nom de ta feuille dans ta cellule il faut que ton fichier soit enregistré

Bonne journée

 

[ChTi160]

Salut 'Pascal'
moi j'apprends et tu sais je n'ai fais que reproduire et je n'avais pas noté cette condition ,je vais le faire.
donc ces fonctions ne seraient pas effectives si j'entre la fonction lors de la création d'un nouveau classeur et avant toute enregistrement de celui ci, je vais tester Merci
ci dessous l'auteur de la fonction
Auteur: STéphane (195.101.57.---)
Date: 19-06-02 15:39

1ère méthode : écrivez la fonction ci-dessous dans une feuille de code, vous pouvez alors sélectionner cette fonction dans le menu 'fx' à 'fonctions personnalisées'.

Function NomOnglet ()
NomOnglet = activesheet.name
End function

encore merci
A+++
Jean Marie

 

[Phillip]

Merci pour cette fonction personnalisé, ça marche super !!