Lister les onglets

[BerNar]

Bonjour à tous !

Petite question :

Comment puis-je faire pour obtenir, dans un nouvel onglet, la liste des onglets d'un classeur ?

Merci pour votre aide.

BerNar

 

[Jon]

bonjour

voilà une manière de faire.


Sub h()
Sheets.Add before:=Sheets(1)
With ActiveSheet
.Name = "Liste des Feuilles"
[A1] = "Liste des Feuilles"
For i = 2 To ActiveWorkbook.Sheets.Count
Cells(i + 1, 1).Value = Sheets(i).Name
'ici tu pourrais envisager de créer des liens hypertextes avec la méthode Add appliquée à l'objet hyperlinks
'pour plus d'infos cherche dans les anciens messages ou réferre toi à l'aide
Next i
End With

End Sub

la feuille crée est déplacée en première position, son index est donc 1.
la boucle for s'incrémente donc à partir de la feuille en position 2

bye