Liste automatique des onglets d'un fichier

Fermé

Onglet
Macro

rsqq Messages postés 16 Date d'inscription lundi 14 septembre 2009 Statut Membre Dernière intervention 28 septembre 2010 - 22 févr. 2010 à 15:20
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 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
Restaurer onglets chrome - Guide
Formule excel - Guide
Excel liste déroulante en cascade - Guide

4 réponses

Réponse 1 / 4

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
22 févr. 2010 à 21:08

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 lundi 14 septembre 2009 Statut Membre Dernière intervention 28 septembre 2010
23 févr. 2010 à 09:49

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 lundi 14 septembre 2009 Statut Membre Dernière intervention 28 septembre 2010
23 févr. 2010 à 11:16

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 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
23 févr. 2010 à 11:21

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 jeudi 26 août 2010 Statut Membre Dernière intervention 24 avril 2011
8 sept. 2010 à 23:07

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 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
8 sept. 2010 à 23:48

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 jeudi 26 août 2010 Statut Membre Dernière intervention 24 avril 2011
9 sept. 2010 à 08:08

merci eriic !

Je crois que ton aide sera précieuse !

ridel66 Messages postés 73 Date d'inscription jeudi 26 août 2010 Statut Membre Dernière intervention 24 avril 2011
9 sept. 2010 à 08:12

re,

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

cordialement

ridel66 Messages postés 73 Date d'inscription jeudi 26 août 2010 Statut Membre Dernière intervention 24 avril 2011
9 sept. 2010 à 08:20

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

Discussions similaires

Newsletters