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

  • Initiateur de la discussion Initiateur de la discussion jclm
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

jclm

Guest
Bonjour 😕

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

Grand merci pour votre aide 😎

Jclm
 
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
 
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:
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
 
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

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
265
D
  • Question Question
Réponses
5
Affichages
250
Didierpasdoué
D
Réponses
7
Affichages
524
Réponses
3
Affichages
257
Réponses
3
Affichages
222
Réponses
7
Affichages
249
Réponses
4
Affichages
333
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…