Sujet Précédent Sujet Suivant

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
JEAN_EXCEL

Messages postés: 1
Date d'inscription: lundi 15 juillet 2019
Statut: Membre
Dernière intervention: 15 juillet 2019

- 15 juil. 2019 à 11:59

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
Excel récupérer nom onglet - Meilleures réponses
Liste déroulante onglet excel - Meilleures réponses
Liste automatique des onglets d'un fichier - Forum - Bureautique
Compter ou additionner des cellules Excel colorisées - Guide
Créer une liste des noms d'onglets sans utiliser de macro ✓ - Forum - Excel
Ouvrir un onglet avec une liste déroulante ✓ - Forum - Excel
Récap infos dans une liste des onglets ✓ - Forum - Excel

4 réponses

Réponse 1 / 4

eriiic

Messages postés: 24447
Date d'inscription: mardi 11 septembre 2007
Statut: Contributeur
Dernière intervention: 26 septembre 2022

7 128
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

rsqq

Messages postés: 16
Date d'inscription: lundi 14 septembre 2009
Statut: Membre
Dernière intervention: 28 septembre 2010

23 févr. 2010 à 14:16

J'ai fait la modif ca marche
Merci
a+

JEAN_EXCEL

Messages postés: 1
Date d'inscription: lundi 15 juillet 2019
Statut: Membre
Dernière intervention: 15 juillet 2019

15 juil. 2019 à 11:59

C'est super cela fonctionne parfaitement

Réponse 2 / 4

eriiic

Messages postés: 24447
Date d'inscription: mardi 11 septembre 2007
Statut: Contributeur
Dernière intervention: 26 septembre 2022

7 128
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: 24447
Date d'inscription: mardi 11 septembre 2007
Statut: Contributeur
Dernière intervention: 26 septembre 2022

7 128
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

macro copier ligne dans autre onglet si condition

créer des feuilles excel à partir d'une liste

Ouvrir un onglet avec une liste déroulante

macro excel: transposition colonne en ligne

macros désactivées dans excel 2007

auto click (droit)

Discussions similaires

Newsletters