Récupérer les onglets en listing

[fax]

Bonjour,
Je cherche une solution pour récupérer sous forme de liste, les noms des onglets présents dans un fichier excel (dans l'ordre d'apparition)
Merci à tous de l'aide que vous pourrez m'apporter.
Bonne soirée
FAX.

 

[Paritec]

Re : Récupérer les onglets en listing

bonsoir Fax le forum
et une petit fichier exemple c'est possible?
a+
papou

 

[WDAndCo]

Re : Récupérer les onglets en listing

Bonsoir le Forum

Je suis très intéressé par ce fil.

Dominique

[Edit] Je laisse la place a FAX et je pose mon souci ! [/Edit]

 

[fax]

Re : Récupérer les onglets en listing

voilà dans le lien ci-dessous ce que je souhaite ...
Ce lien n'existe plus
par exemple, 3 onglets, et le 4ème est un récap des 3 premiers... (je sais pas si je suis clair)
Je me moque de ce qu'il y a dans les pages, c'est juste pour récupérer les noms des onglets.
Un GRAND MERCI par avance pour l'aide fournie et au moins le geste de ce qui auront essayé à m'aider.
FAX.

 

[Modeste]

Re : Récupérer les onglets en listing

Bonsoir le fil,

Avec

Sub nomsOnglets()
For Each sh In ThisWorkbook.Worksheets
    Sheets("Listing").Range("B" & i + 1) = sh.Name
    i = i + 1
Next sh
End Sub

Le tout dans un module, on obtient la liste de toutes les feuilles du classeur

 

[Paritec]

Re : Récupérer les onglets en listing

Bonjour Fax WD and co,
sans avoir de fichier voilà qui te fera la liste en feuil1 colonne A
a+
Papou

Sub liste()
    Dim ws As Worksheet
    For Each ws In Worksheets
         Feuil1.Range("A65000").End(xlUp).Offset(1, 0) = ws.Name
    Next ws
End Sub

EDIT Bonsoir Modeste

 

[fax]

Re : Récupérer les onglets en listing

heu ... désolé, suis novice et je ne sais pas où mettre ce code ....
Peux-tu m'expliquer Modeste ?
Merci
FAX.

 

[Paritec]

Re : Récupérer les onglets en listing

Re tous,
Pour répondre exactement à la demande sans la feuille listing
voilà le fichier
a+
Papou

EDIT : Alors tu ne joins pas de fichier et tu ne sais pas ou mettre les réponses !!!!
ouvres le fichier c'est plus simple a+

 

[fax]

Re : Récupérer les onglets en listing

C'est bon, j'ai trouvé !!!! UN GRAND MERCI pour votre AIDE !!!!!
ça fait plaisir de voir de l'entraide comme ça et aussi rapide !
MERCI.
Bonne soirée

 

[WDAndCo]

Re : Récupérer les onglets en listing

Bonsoir le Forum,


Moi j'ai une autre demande qui est a mon avis complémentaire.

Soit un classeur avec au départ 10 onglets.

Ce classeur génère de nouveau onglets.

J'aimerais donc avoir un listing des noms sur l'onglet 1 des pages de 11 à X.

Et de plus ces noms serais des liens qui pointent vers leur onglet respectif.
Les noms serons dans ce format "146 DF GHYUUIO" ou "233 RF JUIIIYIIVII" ect


D'avance merci
Dominique

 

[Paritec]

Re : Récupérer les onglets en listing

Bonjour WDandco le forum,
je pense qu'il faut que tu lises le post 2 !!!!!
Si tu ne fais pas de fichier exemple moi personnellement je ne te répondrai pas.
Répondre aux questions oui mais si en plus il faut faire les exemples là c'est non
bonne journée
Papou

 

[Tibo]

Re : Récupérer les onglets en listing

Bonjour,

Voir sur ce lien :

https://www.excel-downloads.com/threads/formule-nb-si-sur-plusieurs-feuilles.54607/

une solution formule de Jacques Boisgontier (message de 20h18 le 07/07/2010)

@+

 

[WDAndCo]

Re : Récupérer les onglets en listing

Bonjour le Forum

Merci TIBO pour cette élégante solution, mais j'aurais aimé que le résultat soit des liens qui pointent vers leurs onglet !
Pour les onglet 11 à X

Amicalement
Dominique

 

[Tibo]

Re : Récupérer les onglets en listing

Bonjour,

Cette solution est celle de Jacques Boisgontier, tout le mérite lui en revient.

Je pense qu'avec la fonction LIEN_HYPERTEXTE, on doit pouvoir concocter quelque chose.

Bon, pas le temps tout de suite, because travail, mais je regarde plus tard.

@+

 

[BOISGONTIER]

Re : Récupérer les onglets en listing

Bonjour,

voir pj

Private Sub Worksheet_Activate()
    [C1:C100].ClearContents
    For i = 11 To Sheets.Count
      nf = Sheets(i).Name
      ActiveSheet.Hyperlinks.Add Anchor:=Cells(i - 5, 3), Address:="", SubAddress:="'" & _
         nf & "'" & "!A1", TextToDisplay:=nf
    Next i
End Sub

JB
Formation Excel VBA JB