installer une combobox dans la barre d'outils

[pascal21]

bonjour à tous
j'aimerais savoir si il est possible d'avoir une combobox dans la barre d'outils
cette combobox me servirait à activer les feuilles du classeur car je souhaite masquer les onglets
merci

 

[BOISGONTIER]

Re : installer une combobox dans la barre d'outils

Bonjour,

Sub auto_open()
  On Error Resume Next
  Set Barre = CommandBars.Add
  Barre.Name = "BarreFeuilles"
  Barre.Visible = True
  Set Menu = Barre.Controls.Add(msoControlComboBox)
  For i = 1 To Sheets.Count
      Menu.AddItem Sheets(i).Name
  Next
  Menu.OnAction = "ChoixFeuille"
  Menu.Text = "Sélectionner puis choisir"
End Sub

Sub auto_close()
  On Error Resume Next
  CommandBars("BarreFeuilles").Delete
End Sub

Sub ChoixFeuille()
  Sheets(CommandBars("BarreFeuilles").Controls(1).Text).Select
End Sub

JB

 

[pascal21]

Re : installer une combobox dans la barre d'outils

bonjour ok c'est parfait
je n'y voyais pas comme ça mais ça fonctionne
par contre ça reste présent dans les classeurs non concernés