Excel - Insérer nom de l'onglet dans cellule Résolu/Fermé

Question

Bonjour,

Auriez-vous l'astuce pour insérer le nom de l'onglet d'une feuille de calcul Excel dans une cellule.

Merci à tousConfiguration: Windows XP
Internet Explorer 6.0

této · Accepted Answer

la formule qui va bien est :

=DROITE(CELLULE("nomfichier";A1);
NBCAR(CELLULE("nomfichier";A1))-TROUVE("]";
CELLULE("nomfichier";A1)))

A +

dandan_lefebvre · Answer

Je ne crois pas que c'est possible par une formule, mais par macro ça donne:

Sub nom()
'
' nom Macro
    
    Cells(1, 1) = Sheets(1).Name
    
End Sub


Où Cells(1,1)  veut dire la cellule A1 et le "1" dans Sheets(1) veut dire la première feuille du classeur.

Cette macro aura pour effet de saisir le nom de l'onglet dans la cellule A1 de l'onglet actif.

eriiic · Answer

Bonjour,

D'accord globalement avec dandan, et pour avoir l'onglet actif et non plus la feuille 1 il faudrait :
Cells(1, 1) = ActiveSheet.Name

et pour avoir tous les noms faire une boucle:
Sub nom()
    For Each sh In Sheets
        i = i + 1
        Cells(i, 1) = sh.Name
    Next sh
End Sub

Sinon c'est possible avec une formule à condition d'être dans une autre feuille:
ex dans feui2 saisir:
=CELLULE("adresse";Feuil1!A2)  => [Classeur1]Feuil1!$A$2
Reste à traiter la chaine pour extraire son nom.

eric

gbinforme · Answer

bonjour

Sans faire de macro, c'est tout à fait possible avec cette formule :
pour le nom de l'onglet

=STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;20)

ou bien sûr il est possible de remplacer la longueur 20 
en calculant la bonne longueur mais le jeu en vaut-il la peine ?
=STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;NBCAR(CELLULE("nomfichier"))-TROUVE("]";CELLULE("nomfichier")))

pour le nom du classeur
=STXT(CELLULE("nomfichier");TROUVE("[";CELLULE("nomfichier"))+1;TROUVE("]";CELLULE("nomfichier"))-TROUVE("[";CELLULE("nomfichier"))-1)

et le chemin complet
=CELLULE("nomfichier")

ps : l'affichage est incorrect car à la place de &.q.u.o.t.; il faut "

hmcirta · Answer

Salut gbinforme

Merci pour ces formules, ça a marché avec la première mais pas avec les deux dernières, il me semble qu'il y a une erreur dans la saisie des formules. Pourrai-tu les revoir et les corriger? Merci

gbinforme · Answer

bonjour

Elles fonctionnent bien mais il y a une erreur d'affichage sur le site : regardes le PS

Faut remplacer "&.q.u.o.t.;" (les points intercalés pour affichage) par guillemet simplement.
J'essaie à nouveau
=STXT(CELLULE("nomfichier");TROUVE("[";CELLULE("nomfichier"))+1;TROUVE("]";CELLULE( "nomfichier"))-TROUVE("[";CELLULE("nomfichier"))-1)
PS : toujours pas bon... cela passe sur deux lignes et il faut grouper les deux sur la même cellule

hmcirta · Answer

Salut gbinforme

Merci de ta réponse. Je me suis rendu compte de cela juste après avoir posté mon message. Et ça marche très bien.

Merci encore

néné · Answer

Bonjour

Voici une petite fonction VBA personnalisée

Function SheetName() As String
  Application.Volatile
  SheetName = Application.Caller.Parent.Name
End Function

bibidel · Answer

Re bonjour !
Bon ça marche, MAIS j'ai le même résultat sur toutes les feuilles alors je vous sollicite encore. 
Cette info est présente dans une cellule de chaque feuille et je souhaiterais qu'elle se mette à jour !!! GRRRRRRR
Merci d'avance.
Bididel

bibidel · Answer

Re bonjour à tous !
Bon ça marche .... au début. 
En fait j'ai le même résultat dans chaque cellule de chaque feuille, ça prend partout la même référence du dernier onglet mis à jour donc je vous sollicite encore et encore !
Merci d'avance,
Bibidel

Le Pingou · Answer

Bonjour bibidel,
C'est juste en passant, il me semble que les propositions de gbinforme et eriiic sont parfaites et comme j'ai du mal à comprendre vos désirs, la mise à dispositions de votre classeur sur www.cjoint.com permettrait de voir plus clair... à vous de voir.

bibidel · Answer

J'essaie de m'expliquer :
La formule fonctionne bien sur une feuille mais lorsque je fais la mise à jour F9 c'est la même référence d'onglet qui apparait dans la cellule de toutes les feuilles alors que l'onglet est (bien évidemment) différent pour chaque feuille.
Je ne sais pas si je suis claire ???
Merci quand même mais c'est un fichier professionnel et je n'ai pas le droit de vous le transmettre...
A bientôt, j'espère.
Bibidel

néné · Answer

Bonjour

Ne voyant pas le problème cocher "Résolu", j'ai donc apporter mon savoir faire

En ce qui concerne la Pub:

Internet est truffé de Pub et ce n'ai pas une obligation de cliquer dessus à chaque fois

bibidel · Answer

Merci encore à Eric et gbinforme

Voilà comment j'ai résolu mon souci ponctuellement mais je cherche mieux :
Ce n'est pas excellent mais je ne sais pas incrémenter (sans macro) le n° de la feuille dans le classeur donc, pour chaque cellule de chaque feuille je modifie la formule en modifiant ("nomfchier",A1) pour la feuille 1 ("nomfichier",A2) pour la seconde, etc...
Le tout est de ne pas déplacer les feuilles.....

=STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier";A1))+1;20) pour la feuille 1

=STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier";A2))+1;20) pour la feuille 2

et ainsi de suite...
A bientôt
Bibidel

eriiic · Answer

Tu as fais exactement ce qu'il fallait faire, ajouter la référence de cellule qui est optionnelle, et comme ça tu pointes sur une cellule de ta feuille (au lieu de la feuille active...).
Tu peux laisser A1 dans chaque formule (pas de lien entre le 2 de A2 et le 2 de feuil2) et donc pas d'incrémentation à avoir, c'est la même formule sur toutes les feuilles.  
Et ajoute le également dans le 1er CELLULE(...;A1) que ça fasse plus propre
eric

bibidel · Answer

MERCI Ériiiiiiiiic !  Que la vie semble simple, après !

Le Pingou · Answer

Bonsoir bibidel,
Oui je vous comprends dans le cas d'un fichier professionnel. Mis à part cela je viens de faire une série de test sur plusieurs de mes classeurs et la formule fonctionne impeccable y compris avec Maj. PF9, chaque cellule mentionne le nom de la feuille qui lui est propre.
De plus je soutiens fermement le bien fondé des propos d'eriiic. 
De plus, le déplacement d'une feuille n'a aucune incidence sur son nom étant donné qu'il ne change pas, sauf de place.

SebastienC44 · Answer

Bonjour,
j'ai parcouru votre discussion en pensant avoir trouvé mon bonheur :
je recherche un fonction qui me permettra d'afficher dans n'importe quelle cellule de ma feuille le nom de l'onglet de cette feuille.
j'ai copié la formule donnée mais elle ne fonctionne. Ai je bien compris l'interet de votre formule ? Si oui pourquoi ne fonctionne t elle pas  ? Sinon est il possible possible de faire ce que je souhaite ?
merci beaucoup,
seb

bibidel · Answer

Bonjour seb,
Voici la formule qui fonctionne dans une cellule, il me semble qu'elle corresponde à votre "bonheur" :

=STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;20)

A +
Bibidel

bibidel · Answer

Remplacer &quot t;  par une double quote (problème d'affichage)

Bibidel

bibidel · Answer

La formule est la suivante à taper dans la cellule de destination. 

=STXT(CELLULE(''nomfichier'';A1);TROUVE('']'';CELLULE(''nomfichier'';A1))+1;20) 

20 correspond aux nb de car maxi du nom de l'onglet, on peut lui donner la valeur que l'on veut. 

Bididel

bibidel · Answer

La formule est la suivante à taper dans la cellule de destination

=STXT(CELLULE(''nomfichier'';A1);TROUVE('']'';CELLULE(''nomfichier'';A1))+1;20) 

20 correspond aux nb de car maxi du nom de l'onglet, on peut lui donner la valeur que l'on veut. 

Bibidel

eriiic · Answer

Bonsoir,

Je peux jouer aussi ?

=STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;20)

Alors bizarrement cette formule est exactement la même que la tienne bibidel, mais si je copie/colle la tienne j'ai également une erreur (??)
J'ai beau regarder et je ne vois pas la différence. Si, une toute petite sur la longueur comme si un caractere était légèrement plus large...
Donc j'ai collé sous forme de code. Si tjs des pb je conseille à SebastienC44 de ressaisir dans excel ce qui ce trouve entre les "..."  avec les " y compris, même pour "[". A-priori c'est là que ça bugue.
Bizarre, bizarre...

eric

bibidel · Answer

D'accord Eriiic ! pssssssss je suis démasquéE 
A +

SebastienC44 · Answer

Bonjour et merci pour vos nombreuses reponses. J'ai copié la formule dans une cellule de la feuille1, mais elle ne fonctionne pas  (#VALEUR!). J'ai ensuite lu qu'il fallait tout recopié ce qui était entre "", mais toujours rien ?
Y a t il une astuce qui m'echappe ?

SebastienC44 · Answer

Bon j'ai trouvé pourquoi cela ne marchait pas :
il faut etre sur un fichier deja enregistrer et moi je testais la fonction sur un nouveau classeur,
A+

Seb

skall34 · Answer

Genial! ça marche nickel !!!
pour info, dans la formule de bibidel, si on fait un copié collé sous excel, il reconnait les guillemets comme 2 apostrophes. donc pensez à faire les modifications adéquate.

Oughdir hrou · Answer

bonjour 

bonça marche bien , c'est tout à fait possible avec cette formule qui donne
le nom de l'onglet

=STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;20)

ou bien sûr il est possible de remplacer la longueur 20  en calculant la bonne longueur mais le jeu en vaut-il la peine ?
comme suivant;

=STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;NBCAR(CELLULE("nomfichier"))-TROUVE("]";CELLULE("nomfichier")))

et le chemin complet
=CELLULE("nomfichier

Dipabest · Answer

Je viens d'essayer.

Ca ne fonctionnait pas jusqu'a ce ce j'aie enregistré (et donc nommé) le document.

Après coup, ça paraît très logique pour une formule faisant référence au nom de fichier mais ça me semblait intérresant de le préciser pour les débutants.

bibidel · Answer

Bonjour Éric, contente de te lire... :-)
Bonne année à toi également.
Je ne sais pas non plus pourquoi lorsque je fais un copier-coller vers un éditeur de texte d'une formule Excel cette double quote se transforme en 2 simples.
Le mystère subsiste depuis plus de deux ans maintenant.... je dois avoir un petit bout de config. tordu qq part.
à bientôt

eriiic · Answer

Oui, sûrement un paramétrage qcq part (word ?) qui convertit

Binif · Answer

=STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;20)

Cette formule ne fonctionne pas sous Microsoft Office 2007,

Celle-ci oui...

=STXT(CELLULE("nomfichier",A1),TROUVE("]",CELLULE("nomfichier",A1))+1,20)

eriiic · Answer

Bonsoir,

Réponse au post 54.
Pour lister tous les noms d'onglets le classeur d'abord être enregistré puis : 
"insertion / nom / définir..."
'nom dans le classeur :' nom_feuilles
'Fait référence à :' =ALEA()*0&TRANSPOSE(LIRE.CLASSEUR(1))
Valider

Sur la ligne 1 d'une feuille saisir :
=STXT(INDEX(nom_feuilles;LIGNE());CHERCHE("]";INDEX(nom_feuilles;LIGNE()))+1;30)
à recopier vers le bas.

Les #REF! des feuilles inexistantes peuvent être éliminés par un test supplémentaire si besoin (mais alourdissement de la formule)

eric

mapa · Answer

Bonjour,

Pour que la formule fonctionne dans un classeur avec plusieurs onglets, il faut faire une référence à une cellule de la feuille

=STXT(CELLULE("nomfichier";B1);TROUVE("]";CELLULE("nomfichier";B1))+1;NBCAR(CELLULE("nomfichier";B1))-TROUVE("]";CELLULE("nomfichier";B1)))

Excel - Insérer nom de l'onglet dans cellule

34 réponses

Discussions similaires