Créer un menu pour acceder aux onglets

Brigitte

XLDnaute Barbatruc

• 14 Novembre 2009

• #2

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.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 14 Novembre 2009

• #3

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🙂

 

Vote positif 0 Vote négatif

K

krystof_ii

XLDnaute Occasionnel

• 14 Novembre 2009

• #4

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, ...

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 14 Novembre 2009

• #5

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.

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Novembre 2009

• #6

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

 

Vote positif 0 Vote négatif

klin89

XLDnaute Accro

• 14 Novembre 2009

• #7

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.

Code:

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Novembre 2009

• #8

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

 

Vote positif 0 Vote négatif

K

krystof_ii

XLDnaute Occasionnel

• 14 Novembre 2009

• #9

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 ...

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Novembre 2009

• #10

Re : Créer un menu pour acceder aux onglets

Re,

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Novembre 2009

• #11

Re : Créer un menu pour acceder aux onglets

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

Code:

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) 🙄

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Novembre 2009

• #12

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

 

Vote positif 0 Vote négatif

K

krystof_ii

XLDnaute Occasionnel

• 14 Novembre 2009

• #13

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 14 Novembre 2009

• #14

Re : Créer un menu pour acceder aux onglets

Re krystof_ii,

Merci de ton retour et bonne soirée.

Jean-Pierre

 

Vote positif 0 Vote négatif