installer une combobox dans la barre d'outils

pascal21

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Repose en paix
Re : installer une combobox dans la barre d'outils

Bonjour,


Code:
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
 

Pièces jointes

  • BarreFeuillesx.xls
    40.5 KB · Affichages: 53
  • Form_ChoixFeuille2x.zip
    39.7 KB · Affichages: 26
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 963
Messages
2 093 996
Membres
105 906
dernier inscrit
aifa