[Astuce] Déplacement rapide entre onglets

[Mytå]

Un petit bout de code pour afficher une boîte de dialogue pour naviguer
entre les feuilles visibles d'un classeur.

Code: Tout sélectionner


Sub BarreAccesFeuilles()
    Application.CommandBars("Workbook tabs").ShowPopup 400, 300
End Sub
 

Mytå

[V_Elbie]

Absolument GEANT !

Je galérais avec un classeur de plusieurs feuilles ayant deux cellules figées à gauche, et du coup j'avais du mal à accéder à la zone permettant de changer d'onglet...

Merci Mytå.

Tu vois, j'ai même cherché le petit a avec un petit rond au dessus...

Si tu en as d'autres des astuces comme celles-là, elles sont tout à fait bienvenues...

Elbie

[souri84]

j'ai une question: ou met-on le code?

C'est une de mes failles sur excel, je sais créer des macros et des boutons mais pour des bouts de code comme celui-ci, je ne sais pas où les inserer....

Pourrais tu m'éclaircir?

Merci d'avance

Souri84

[souri84]

Re salut,

Juste pour dire qu'il n'y a pas besoin de ce code pour obtenir cette popup....

si tu cliques droit sur les flèches de navigation des onglets, elle apparaît aussi.... et sans entrer le code....

[Mytå]

Salut le forum

Souri84 oui tu as raison, mais à condition de ne pas être en mode plein écran, car là
tu n'as plus les flèches de navigation.

Mytå

P.S. Pour le code tu peux l'associé à un bouton de ta feuille
Private Sub CommandButton1_Click()
Application.CommandBars("Workbook tabs").ShowPopup 400, 300
End Sub

[souri84]

c'est clair que c'est plus pratique avec un bouton....

[looping]

Il y a encore plus facile.. le racourcis clavier Ctrl + page up ou page down.