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

Nommer une cellule par rapport au nom de l'onglet

jclm

XLDnaute Nouveau
Bonjour

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

Grand merci pour votre aide

Jclm
 

Robert

XLDnaute Barbatruc
Repose en paix
Re : Nommer une cellule par rapport au nom de l'onglet

Bonjour Jclm, bonjour le forum,

Par macro ça donnerait ça :
Code:
Sub Macro1()
ActiveSheet.Range("A1").Value = ActiveSheet.Name
End Sub
 

Victor21

XLDnaute Barbatruc
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
 
Dernière édition:

jclm

XLDnaute Nouveau
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

XLDnaute Barbatruc
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!
 

Pièces jointes

  • NomOngletAuto.xls
    16 KB · Affichages: 175

DoubleZero

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

Bonjour, le Fil , le Forum,

A tester (dans ThisWorkbook) :

Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[L1] = ActiveSheet.Name
End Sub
A bientôt.
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…