Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel nommer automatiquement un onglet

nommer automatiquement un onglet

3 réponses
Avatar
Pedro
Bonjour,
Je voudrais que mon onglet ait le nom de la cellule a1.
Dès que je change cette cellule, le nom de l'onglet change. Ca peut être des
caractères numériques, alphabétiques ou alphanumériques.
Merci d'avance à la personne qui peut m'aider
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Winnipeg
Bonjour Petro,

Je te propose de coller ce code dans la feuille où se situe ta case A1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then Name = Target
End Sub

Le nom Name correspond bien à celui de la feuille où tu colles le code

"Pedro" a écrit dans le message de
news:%
Bonjour,
Je voudrais que mon onglet ait le nom de la cellule a1.
Dès que je change cette cellule, le nom de l'onglet change. Ca peut être
des caractères numériques, alphabétiques ou alphanumériques.
Merci d'avance à la personne qui peut m'aider


Avatar
Philippe.R
Bonjour,
Je m'immisce :
le code est à coller dans le module de la feuille considérée (clic droit sur
l'onglet / visualiser le code)
S'il s'agit d'appliquer la démarche à l'ensemble des feuilles du classeur,
colles ce qui suit dans le module thisworkbook (dont le nom est visible dans
la fenêtre de gauche de l'éditeur de code) :

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value <> "" _
Then ActiveSheet.Name = Target.Value
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Pedro" a écrit dans le message de
news:%
Merci pour la rapidité et la précision de cette réponse. Mais en vba je
débute et j'ai du commettre une erreur en reportant ton code Voir mon
petit
exemple ci-joint. Comment faire?
Pedro
"Winnipeg" a écrit dans le message de
news:49f2e519$0$17099$
Bonjour Petro,

Je te propose de coller ce code dans la feuille où se situe ta case A1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then Name = Target
End Sub

Le nom Name correspond bien à celui de la feuille où tu colles le code

"Pedro" a écrit dans le message de
news:%
Bonjour,
Je voudrais que mon onglet ait le nom de la cellule a1.
Dès que je change cette cellule, le nom de l'onglet change. Ca peut être
des caractères numériques, alphabétiques ou alphanumériques.
Merci d'avance à la personne qui peut m'aider








Avatar
Pedro
Super !
C'est vraiment génial ce forum.
Pedro
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:%
Bonjour,
Je m'immisce :
le code est à coller dans le module de la feuille considérée (clic droit
sur l'onglet / visualiser le code)
S'il s'agit d'appliquer la démarche à l'ensemble des feuilles du classeur,
colles ce qui suit dans le module thisworkbook (dont le nom est visible
dans la fenêtre de gauche de l'éditeur de code) :

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value <> "" _
Then ActiveSheet.Name = Target.Value
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Pedro" a écrit dans le message de
news:%
Merci pour la rapidité et la précision de cette réponse. Mais en vba je
débute et j'ai du commettre une erreur en reportant ton code Voir mon
petit
exemple ci-joint. Comment faire?
Pedro
"Winnipeg" a écrit dans le message de
news:49f2e519$0$17099$
Bonjour Petro,

Je te propose de coller ce code dans la feuille où se situe ta case A1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then Name = Target
End Sub

Le nom Name correspond bien à celui de la feuille où tu colles le code

"Pedro" a écrit dans le message de
news:%
Bonjour,
Je voudrais que mon onglet ait le nom de la cellule a1.
Dès que je change cette cellule, le nom de l'onglet change. Ca peut
être
des caractères numériques, alphabétiques ou alphanumériques.
Merci d'avance à la personne qui peut m'aider