Barre d'outil de navigation

  • Initiateur de la discussion Initiateur de la discussion Duanra
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Duanra

XLDnaute Nouveau
Bonjour,

Je souhaiterais me créer une barre d'outil de navigation pour naviguer plus rapidement dans mes onglets.
Après avoir parcouru le forum j'ai pu créer la barre, avec deux boutons et deux combobox, l'une reprenant la liste des cellules B2 de chaque onglet et l'autre dont les items sont définis "à la main".
Par contre, je ne parviens pas à créer de macro ou à agir sur le With du combobox pour me rendre sur la feuille reprenant la valeur du combobox choisi dans sa cellule B2. Je n'ai pas trouvé de post pouvant m'aider.
je l'ai fait par macro mais je pense que je ne sais pas récupérer les variables de Workbook_Open donc je traite d'objets inexistants dans ma macro.
Voici le code de mon workbook.open
Merci d'avance pour votre aide!

Private Sub Workbook_Open()

Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton
Dim Combo1 As CommandBarComboBox
Dim Combo2 As CommandBarComboBox

'Application.Visible = False

Set CmdBar = Application.CommandBars.Add(Name:="BarreMenu", Position:=msoBarTop, Temporary:=True)
Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 133
.OnAction = "AfficheMenuMacros"
End With
Set Bouton2 = CmdBar.Controls.Add(Type:=msoControlButton)
With Bouton
.FaceId = 134
.OnAction = "AfficheMenuMacros"
End With
Set Combo1 = CmdBar.Controls.Add(Type:=msoControlComboBox)
With Combo1
Sheets("Début Financier").Select
ActiveSheet.Next.Select
Do While ActiveSheet.Name <> "Fin Financier"
Liste = Range("B2").Formula
Combo1.AddItem ActiveSheet.Range("B2").Formula
ActiveSheet.Next.Select
Do While ActiveSheet.Range("B2").Formula = Liste
ActiveSheet.Next.Select
Loop
Loop
Sheets("Début Promotion").Select
ActiveSheet.Next.Select
Do While ActiveSheet.Name <> "Fin Promotion"
Liste = Range("B2").Formula
Combo1.AddItem ActiveSheet.Range("B2").Formula
ActiveSheet.Next.Select
Do While ActiveSheet.Range("B2").Formula = Liste
ActiveSheet.Next.Select
Loop
Loop
End With

Set Combo2 = CmdBar.Controls.Add(Type:=msoControlComboBox)
With Combo2
Combo2.AddItem "Menu"
Combo2.AddItem "Bilan"
Combo2.AddItem "Trésorerie"
Combo2.AddItem "Avancement"
Combo2.AddItem "Facturation SCCV"
Combo2.AddItem "Trésorerie Promotion"
Combo2.AddItem "Cohérences"
Combo2.AddItem "PrestatairesBudget"
End With

'Application.Visible = True
CmdBar.Visible = True
Sheets("Bilan").Select

End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
1 K
Réponses
6
Affichages
1 K
Réponses
2
Affichages
2 K
Réponses
10
Affichages
786
Retour