Salut Olivier, le Forum
Je pense que cette liste dont tu parles est la m^me que l'on peu déclencher par cette macro :
Sub Menu()
Application.CommandBars("Workbook tabs").ShowPopup 500, 200
End Sub
Sur le PC où je suis j'ai un maximum de 16 feuilles listées, puis en bas "More Sheets" qui ouvre une ListBox avec toutes...
Maintenant on peut aussi construire son Propre UserForm avec une ListBox facilement :
Matériel nécessaire : 1 UserForm intégrant 1 ListBox
Codes à placer dans le PrivateModule du UserForm en question :
Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In Sheets
Me.ListBox1.AddItem WS.Name
Next WS
End Sub
Private Sub ListBox1_Click()
Sheets(CStr(ListBox1)).Activate
End Sub
Il ne te restera plus qu'à lancer ton UserForm soit par un Bouton, soit par une Macro évènementielle. Et là il n'y aura pas de limite d'affichage du nombre de feuilles...
Bon Aprèm
@+Thierry