Créer un menu pour acceder aux onglets

[krystof_ii]

Bonjour,
je dispose d'un classeur excel avec beaucoup d'onglets (ou feuilles).

Je souhaiterais pouvoir mettre à disposition un menu (dans la barre des menus) permettant d'accéder plus rapidement aux feuilles.

Est-ce possible ? (je ne suis absolument pas contre un code vba).
Ce menu serait mis en place à l'ouverture du fichier & enlevé à sa fermeture.

Par avance merci,

 

[Brigitte]

Re : Créer un menu pour acceder aux onglets

Bonjour,

Sans vba (sauf si tu insistes), connais tu : clic droit sur les flèches à gauche de la barre des onglets ? tu as la liste de toutes tes feuilles (déjà pas si mal).

Autre solution simple : une première feuille avec un tableau reprenant la liste des différentes feuilles avec lien hypertexte vers les feuilles, voire par ordre alphabétique ?

Bon we.

 

[Guest]

Re : Créer un menu pour acceder aux onglets

Bonjour,

Ce menu existe déjà mais en faisant un click-droit en bas à droite du premier onglet(la où il y a les flèches de direction des onglets). Il est automatique et s'adapte aux insertion/suppressions de feuilles.

A+
[Edition] Bing! Brigitte🙂

 

[krystof_ii]

Re : Créer un menu pour acceder aux onglets

Effectivement je sais que ce 'raccourci' existe mais ... je dispose de trop de feuille (cela dépasse l'affichage).

Par conséquent, je souhaiterai pouvoir créer 3 menus dans la barre des menus.

Donc, désolé, mais je pense que j'insiste, 😱 , pour du vba ...

Merci, ...

 

[Brigitte]

Re : Créer un menu pour acceder aux onglets

Re,

Et là je passe à mon voisin, sin... Hasco, si tu nous entends... Lui saura, moi niet... Je pars boire le thé.
Bon menu à vous deux.

 

[jeanpierre]

Re : Créer un menu pour acceder aux onglets

Bonjour krystof ii, Hasco, Brigitte,

Regarde ce fil, mais il y en a d'autres....

https://www.excel-downloads.com/threads/creer-un-menu-pour-acces-rapide-aux-onglets.43628/

Bon après-midi.

Bises Brigitte

Jean-Pierre

 

[klin89]

Re : Créer un menu pour acceder aux onglets

Bonjour le forum,

Sans utiliser les petites flèches de Brigitte et Hasco 😀

Un code à placer dans le ThisWorkbook, auteur : Hervé

Tu double cliques sur une cellule.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
Application.CommandBars("Workbook tabs").ShowPopup
End Sub

Sinon pour compléter les précédentes réponses, lorsque tu cliques sur "Plus de feuilles", tu peux accéder à la feuille recherchée en saisissant la 1ère lettre de la dite feuille.

Klin89

 

[jeanpierre]

Re : Créer un menu pour acceder aux onglets

Re,

Sinon, ce lien avec une macro complèmentaire de John Walkenbach :

https://www.excel-downloads.com/thr...tant-le-choix-ou-lacces-a-une-feuille.129983/

Jean-Pierre

 

[krystof_ii]

Re : Créer un menu pour acceder aux onglets

Ces fonctions sont vraiment très intéressantes mais je souhaiterai quand meme créer un menu spécifique dans la barre de menu ...

 

[jeanpierre]

Re : Créer un menu pour acceder aux onglets

Re,

C'est ce qui est proposé dans mon post de 16h30....

 

[Staple1600]

Re : Créer un menu pour acceder aux onglets

Bonsoir krystoff, klin89, jeanpierre, les zautres du fil, le forum

Sub krystoff()
Dim Nmu As CommandBar, combo As CommandBarComboBox, WsName$, wks As Worksheet
Set Nmu = CommandBars.Add("krystoff")
With Nmu
.Visible = True
    Set combo = Nmu.Controls.Add(msoControlComboBox, ID:=1)
    For Each wks In ThisWorkbook.Worksheets
    WsName = wks.Name
        With combo
            .AddItem WsName
            .DropDownLines = 3
            .DropDownWidth = 75
            .ListIndex = 0
        End With
    Next wks
End With
End Sub

PS: la grande partie de code VBA se trouvait dans l'aide VBA (touche F1) 🙄

 

[jeanpierre]

Re : Créer un menu pour acceder aux onglets

Re,

J'ai du me planter de fil en répondant, donc je recommence (mais c'était le même question)

Regarde les posts #3, #4 et #10, il y a des liens....

https://www.excel-downloads.com/thr...tant-le-choix-ou-lacces-a-une-feuille.129983/

Bonne fin d'après-midi.

Jean-Pierre

 

[krystof_ii]

Re : Créer un menu pour acceder aux onglets

Merci à tous ...

Mon bonheur est :

dans workbook_open tu tapes ça

Set menu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, temporary:=True)
menu.Caption = "Retour"
menu.Tag = "Retour"

With menu.Controls.Add(Type:=msoControlButton, temporary:=True)
.Caption = "FeuillePrincipale"
.Style = msoButtonCaption
.OnAction = "PrincipaleFeuilleMethod"
End With

et dans un module , n'importe lekel, tu peux en créer un nouvveau tu tapes

public sub PrincipaleFeuilleMethod()
set activeworksheet = activeworkbook.worksheets("MaFeuillePrincipale")
end sub

sinon essaie ca aussi

public sub PrincipaleFeuilleMethod()
activeworkbook.worksheets("MaFeuillePrincipale").a ctivate
end sub

bonne chance

Issu des anciens post dont jeanpierre m'a donné le lien.

 

[jeanpierre]

Re : Créer un menu pour acceder aux onglets

Re krystof_ii,

Merci de ton retour et bonne soirée.

Jean-Pierre