Nommer une cellule par rapport au nom de l'onglet

[jclm]

Bonjour

Comment puis je indiquer, automatiquement, dans la cellule A1 le nom de l'onglet

Grand merci pour votre aide

Jclm

 

[Robert]

Re : Nommer une cellule par rapport au nom de l'onglet

Bonjour Jclm, bonjour le forum,

Par macro ça donnerait ça :

Sub Macro1()
ActiveSheet.Range("A1").Value = ActiveSheet.Name
End Sub

 

[Victor21]

Re : Nommer une cellule par rapport au nom de l'onglet

Bonjour.

En attendant mieux (ça ne saurait tarder...) en utilisant les bonnes vieilles macro Excel4 :
Insertion, nom : lire
Fait référence à : =LIRE.FENETRE(1)
et valider.
Dans une cellule : =lire renvoie le nom du classeur et le nom de la feuille

Edit : Bonjour, Robert

 

[Modeste]

Re : Nommer une cellule par rapport au nom de l'onglet

Bonjour le fil,

Une autre:

=STXT(CELLULE("filename";$B$1);CHERCHE("]";CELLULE("filename";$B$1))+1;99)

... en cellule A1

 

[jclm]

Re : Nommer une cellule par rapport au nom de l'onglet

Grand Merci à vous tous , je teste cette petite macro
Bon week end

 

[jclm]

Re : Nommer une cellule par rapport au nom de l'onglet

Merci pour la réponse Robert,

J'ai testé et cela fonctionne
Mais ce que j'aurais souhaité c'est une numérotation automatique.
Soit
ma cellule "L1" porte le nom de l'onglet
je voudrais que lorsque je renomme mon onglet la cellule change automatiquement sans passer par une manipulation
Est ce possible ?

Merci et bon week end

 

[Modeste]

Re : Nommer une cellule par rapport au nom de l'onglet

Bonjour,

Sans rien ôter aux propositions de mes estimés petits camarades, il me semble que la formule que j'ai proposée donne le résultat attendu ... pour autant que le classeur soit enregistré!
Voir les cellules B1 des différentes feuilles dans le classeur joint!

 

[DoubleZero]

Re : Nommer une cellule par rapport au nom de l'onglet

Bonjour, le Fil , le Forum,

A tester (dans ThisWorkbook) :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[L1] = ActiveSheet.Name
End Sub

A bientôt.

 

[jclm]

Re : Nommer une cellule par rapport au nom de l'onglet

Grand Merci à vous tous cela fonctionne

Bon Week end