Discussion :

[tomazy4T6]

Bonjour,

Après avoir fouillé sur le forum comment récupérer le nom d'un onglet, je suis tombé sur la conversation intitulée: "Récupérer nom onglet".
Pour rappel l'utilisateur biquet52 y demande comment récupérer en A1 de chaque feuille, le nom de la feuille.
Daniel C. lui avait alors proposé la solution suivante:
=STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;20)

Je voudrais faire la même chose hormis que le nom de chaque onglet doit être récupéré dans une seule et même feuille (une nouvelle feuille) en les classant verticalement.
Par exemple: les onglets ont les noms suivants: SA11_MGL_12 #11, SA11_MGL_12 001, SA12_MGL_12 BAL72, SA21_MGL_12 48GE 08,....

Dans un nouvel onglet (nouvelle feuille) qu'on appelle "récap", je souhaite récupérer le nom de ces feuilles en partant de la cellule B7 par exemple.
cellule B7: SA11_MGL_12 #11
cellule B8: SA11_MGL_12 001
cellule B9: SA12_MGL_12 BAL72
cellule B10: SA21_MGL_12 48GE
cellule B11: ...


Avez-vous s'il vous plaît la réponse avec la même méthode que celle proposée à biquet52?
En vous remerciant.

[antonysansh]

Bonjour tomazy4T6,

Il faut indiquer la référence d'une autre feuille dans la formule CELLULE

Exemple :
=STXT(CELLULE("nomfichier";Feuil1!$A$1);TROUVE("]";CELLULE("nomfichier";Feuil1!$A$1))+1;20) va répondre Feuil1
=STXT(CELLULE("nomfichier";Feuil2!$A$1);TROUVE("]";CELLULE("nomfichier";Feuil2!$A$1))+1;20) va répondre Feuil2

Mais tu devras écrire autant de formules différentes que tu as de feuille, donc pas très utile car c'est comme écrire directement les noms d'onglets toi même.


Une solution en vb serait je pense plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
    Dim sh As Worksheet, i&
        Set sh = ThisWorkbook.Sheets("Feuil4")
        For i = 1 To ThisWorkbook.Worksheets.Count
            sh.Cells(i, 1) = ThisWorkbook.Sheets(i).Name
        Next
    Set sh = Nothing
End Sub

Les noms des onglet arrivent en feuil4 colonne A.

[tomazy4T6]

Bonjour Antony,

je vais suivre ta solution mais j'aurai préféré éviter de passer par une macro.
N'y a t'il vraiment pas d'autres solutions à partir de fonctions pour récupérer le nom des onglets?
En tout cas je te remercie bien.

[Menhir]

Si tu veux que ça se fasse automatiquement chaque fois que tu ajoutes un onglet, il n'y a pas d'autre solution que de passer par VBA.

Si tu es prêt à faire une manip à la main, il suffit de prendre la formule de ton premier message et de remplacer A1 par une référence à n'importe quelle cellule de l'onglet concerné.

[tomazy4T6]

Entendu, je vais suivre tes recommandations,
merci Antony et Mehnir.