[XL-2003] Afficher une liste des feuilles, de manière permanente

[apnw7931]

Bonsoir,

en référence à ce sujet :
http://excel.developpez.com/faq/?pag...e#ListeOnglets

est-il possible, d'afficher cette liste de manière permanente, et, sur toutes les feuilles de mon classeur ?

En vba, de préférence.

Edit : ou alors, est-il possible de créer un menu déroulant dans une cellule,
avec l'ensemble des feuilles de mon classeur, et qui, une fois la feuille choisie, me permet d'y acceder ?!

Perso, je préfère ma première idée..

Merci beaucoup de m'éclairer

[U. Milité]

Bonjour,

Dans le code de 'ThisWorkbook', tester:

Code :

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim tablo()
For i = 1 To Worksheets.Count
    ReDim Preserve tablo(i - 1)
    tablo(i - 1) = Sheets(i).Name
Next
Sh.Range("F1:F" & i - 1) = Application.Transpose(tablo())
End Sub

... Chaque fois qu'une feuille est activée, le code s'exécute et affiche en colonne F (à adapter) la liste des noms de feuilles

[JPierreM]

Bonjour,

Code à placer dans ThisWorkBook

En faisant un double clic sur n'importe quelle feuille on affiche la liste des feuilles, on peut même sélectionner celle que l'on veut.
Ca évite d'ajouter une liste sur les feuilles et de ne pas les encombrer

Code :

1
2
3
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Application.CommandBars("Workbook tabs").ShowPopup '500, 200
End Sub

JP

[U. Milité]

Bonjour,

Intéressant, JPierreM!

Merci,

[Ormonth]

Bonjour,

Code :

Application.CommandBars("Workbook tabs").ShowPopup 400, 100

Figure dans le lien cité par apnw7931 dans son message d'origine et c'est précisément ce dont il ne veut pas !

Envoyé par apnw7931

Bonsoir,
en référence à ce sujet :
http://excel.developpez.com/faq/?pag...e#ListeOnglets

est-il possible, d'afficher cette liste de manière permanente, et, sur toutes les feuilles de mon classeur ?

d'autre part, ce pop-up est disponible (en permanence) de façon native par un simple clic droit sur le groupe de flèches à gauche de la barre d'onglets...Quelque soit l'onglet actif.

cordialement,

Didier