Liste automatique des onglets d'un fichier

Onglet
Macro

rsqq Messages postés 18 Statut Membre -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention - 24 oct. 2022 à 19:22

Bonjour,
La formule =STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32) "permet de récupérer le nom de l'onglet dans une cellule
Comment modifier cette formule pour récupérer tous les noms d'onglets sur la même feuille sous la forme d'une liste sans macro?
Merci pour vos réponses

Configuration: Windows XP / Internet Explorer 7.0

Afficher la suite

4 réponses

Réponse 1 / 4

Meilleure réponse
La meilleure réponse est la réponse qui a été validée par nos équipes.
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281

Bonjour,

Créer un nom par 'insertion / nom / définir', par exemple nomFeuilles et dans 'Fait référence à' saisir : =LIRE.CLASSEUR(1)

en A1: =INDEX(nomFeuilles;LIGNE())
à tirer vers le bas.
(si tu démarres en ligne 3 remplacer LIGNE() par LIGNE()-2 etc)

Si tu ne veux que le nom de la feuille sans la référence au classeur :
=STXT(INDEX(nomFeuilles;LIGNE());CHERCHE("]";INDEX(nomFeuilles;LIGNE()))+1;30)

Et si tu ne veux pas afficher les #REF! tu peux ajouter un test sur nbval(nomFeuilles) qui te donne le nombre de feuilles du classeur
=SI(LIGNE()>NBVAL(nomFeuilles);"";STXT(INDEX(nomFeuilles;LIGNE());CHERCHE("]";INDEX(nomFeuilles;LIGNE()))+1;30))

eric
15
1. rsqq Messages postés 18 Statut Membre
  
  Bonjour,
  
  Merci beaucoup!
  
  J'ai juste un petit pb, lorsque j'ajoute une nouvelle feuille, il ne me la prend pas en compte. Je ne vois pas pourquoi?
  
  0
2. rsqq Messages postés 18 Statut Membre
  
  Désolé en fait ca marche j'ai du faire une erreur
  Merci encore et bonne journée
  
  0
Réponse 2 / 4
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281

A ce moment là tu peux mettre dans la définition de nomFeuilles :
=STXT(ALEA()*0&LIRE.CLASSEUR(1);2;50)

Nécessitera quand même un F9 ou une validation de n'importe quelle cellule pour mettre à jour la liste sur un ajout de feuille (mais dynamique sur renommage ou suppression).
D'autre part la liste est donnée dans l'ordre des onglets, en tenir compte si déplacement de feuille.
eric
2
1. ridel66 Messages postés 73 Statut Membre
  
  Bonsoir,
  Votre formule m'interresse beaucoup, est il possible que l'on ai deux listes de nom de feuilles:
  par exemple si l'on a deux couleurs d'onglets ou un autre moyen de distinguer deux series d'onglets dans le même classeur?
  
  0
2. eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention 7 281
  
  Bonsoir,
  
  Pour les couleurs pas par formule, non.
  En vba ça pourrait être :
  Sub Macro1() Dim shresult As Worksheet, sh As Worksheet Set shresult = Worksheets("Feuil1") For Each sh In Worksheets Select Case sh.Tab.ColorIndex Case 4 shresult.[A65536].End(xlUp).Offset(1, 0) = sh.Name Case 6 shresult.[B65536].End(xlUp).Offset(1, 0) = sh.Name Case Else shresult.[C65536].End(xlUp).Offset(1, 0) = sh.Name End Select Next sh End Sub
  
  exemple
  
  Ou bien en se basant sur une partie du nom, par exemple ceux commençant par L_ et T_ ou ceux finissant par 1 et 2 ou ...
  
  eric
  
  0
3. ridel66 Messages postés 73 Statut Membre
  
  merci eriic !
  
  Je crois que ton aide sera précieuse !
  
  0
4. ridel66 Messages postés 73 Statut Membre
  
  re,
  
  Et qu'est ce que cela donne en se basant par le nom!
  
  cordialement
  
  0
5. ridel66 Messages postés 73 Statut Membre
  
  re,
  J'ai testé la macro, c'est super! comment faire pour quelle ne rajoute pas les mêmes feuilles à chaque fois que l'on lance l'execution ?
  
  cordialement
  
  0
Réponse 3 / 4
Vaucluse Messages postés 27336 Date d'inscription Statut Contributeur Dernière intervention 6 453

Bonsoir

PS désolé, je retire le message mais ça ne marche que si le nom de la feuille reste Feuil
on peut alors se demander l'utilité de ma proposition???

Avec mes excuses
0
Réponse 4 / 4
damien2103 Messages postés 46 Statut Membre 23

Merci Eriiic

définition de nomFeuilles : =STXT(ALEA()*0&LIRE.CLASSEUR(1);2;50)
et

=SI(LIGNE()>NBVAL(nomFeuilles);"";STXT(INDEX(nomFeuilles;LIGNE());CHERCHE("]";INDEX(nomFeuilles;LIGNE()))+1;30))

font mon bonheur :)
0

Liste automatique des onglets d'un fichier

4 réponses

Discussions similaires

Newsletters