Liste automatique des onglets d'un fichier

Onglet
Macro

rsqq Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
eriiic Messages postés 24603 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

A voir également:

Excel liste des onglets sans macro
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel liste déroulante en cascade - Guide
Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
Word et excel gratuit - Guide

4 réponses

Réponse 1 / 4

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 269

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

rsqq Messages postés 16 Date d'inscription Statut Membre Dernière intervention

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?

rsqq Messages postés 16 Date d'inscription Statut Membre Dernière intervention

Désolé en fait ca marche j'ai du faire une erreur
Merci encore et bonne journée

Réponse 2 / 4

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 269

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

ridel66 Messages postés 73 Date d'inscription Statut Membre Dernière intervention

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?

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 269

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

ridel66 Messages postés 73 Date d'inscription Statut Membre Dernière intervention

merci eriic !

Je crois que ton aide sera précieuse !

ridel66 Messages postés 73 Date d'inscription Statut Membre Dernière intervention

re,

Et qu'est ce que cela donne en se basant par le nom!

cordialement

ridel66 Messages postés 73 Date d'inscription Statut Membre Dernière intervention

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

Discussions similaires

Formules lister les onglets d'un doc excel

créer une liste des noms d'onglets sans utiliser de macro

Renommer une feuille excel avec une cellule

Boucle copie-colle ligne avec condition de valeur d'une cellule

boucle copier coller ligne vers une feuille si condition valeur

vba excel copier lignes avec condition

Votre réponse

Discussions similaires