Recherche onglet

[olivier]

Bonjour,

lorsque l'on a un classeur avec beaucoup d'onglets on peux recherche l'onglet que l'on souhaite en faisant un clic droit sur les flèches de défilement de gauche, mais cette liste ne fait apparaitre que 12 onglets.

Ect-ce possible d'en afficher plus ?

Merci de votre aide

olivier

 

[@+Thierry]

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

 

[Steplof]

Bonjour à tous


bon ben toujours les mêmes à ce que je vois...
et des réponses toujours aussi pertinentes bien évidemment.

On peut même déceler une évolution dans le style de programmation qui se Ti (se) un peu , non?

Bonne continuation à tous


Steplof

 

[ZON]

Salut à tous,

Content de te revoir parmi nous Steplof notre recordman du Tetris...


A+++

 

[@+Thierry]

Bonsoir SteLof, Zon et Olivier (si il est toujours alive!) et le Forum !


Je rentre chez moi et bien que clair (moi)... pas capté le Ti (se) à moins que ce ne soit une "tease" !

Mais heureux de te revoir StepLof et si tu peux reprendre le flambeau c'est avec plaisir car suis out pour un bail !

Bonne nuit et bonne continuation à tous et toutes
@+Thierry

 

[olivier]

Et oui, je suis tjs alive, je reste en connexion avec le réseau ... Je continue à développer mon petit logiciel et reste à l'écoute des problèmes et de conseils ...

Bon excel à vous

bye

olivier