création de barre d'outil avec combo box

Salut,

Exécute cette petite macro :

Sub AjoutComboBox()
Dim cb As CommandBar
Dim cbb As CommandBarComboBox
Set cb = Application.CommandBars.Add("Ma barre")
Set cbb = cb.Controls.Add(msoControlComboBox)
cbb.AddItem "Choix 1"
cbb.AddItem "Choix 2"
cb.Visible = True
End Sub


A+
Nicolas B.

Bonjour
Je souhaiterais créer une nouvelle barre d'outil avec un combobox
comment faire ?
MErci

Bonjour,

http://cjoint.com/?hyphbLeiQg

Sub auto_open()
On Error Resume Next
Set Barre = CommandBars.Add
Barre.Name = "BarreColoriage"
Barre.Visible = True
Set Menu = Barre.Controls.Add(msoControlComboBox)
Menu.AddItem "Choix1"
Menu.AddItem "Choix2"
Menu.AddItem "Choix3"
Menu.OnAction = "MaMacro"
Menu.Text = "Sélectionner puis choisir"
End Sub

Sub maMacro()
Application.ScreenUpdating = False
choix = CommandBars("BarreColoriage").Controls(1).Text
Select Case choix
Case "Choix1"
MsgBox "choix1"
Case "Choix2"
MsgBox "choix2"
End Select
End Sub

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

Cordialement JB

Bonjour
Je souhaiterais créer une nouvelle barre d'outil avec un combobox
comment faire ?
MErci

On est donc obligé de passer par une macro pour faire ca ??
et si je veux ajouter autre chose q'une combo box ?
en tout cas merci

Salut,

Exécute cette petite macro :

Sub AjoutComboBox()
Dim cb As CommandBar
Dim cbb As CommandBarComboBox
Set cb = Application.CommandBars.Add("Ma barre")
Set cbb = cb.Controls.Add(msoControlComboBox)
cbb.AddItem "Choix 1"
cbb.AddItem "Choix 2"
cb.Visible = True
End Sub


A+
Nicolas B.

Bonjour
Je souhaiterais créer une nouvelle barre d'outil avec un combobox
comment faire ?
MErci

On est donc obligé de passer par une macro pour faire ca ??

Peut-être que non, mais je ne sais pas faire autrement ;-)

et si je veux ajouter autre chose q'une combo box ?

Pour ajouter d'autres types de boutons, remplace msoControlComboBox par
msoControlButton, msoControlEdit, msoControlDropdown ou msoControlPopup.

Regarde dans l'aide de VBA pour savoir comment manipuler ces objets.


A+
Nicolas B.

On est donc obligé de passer par une macro pour faire ca ??
et si je veux ajouter autre chose q'une combo box ?
en tout cas merci

Salut,

Exécute cette petite macro :

Sub AjoutComboBox()
Dim cb As CommandBar
Dim cbb As CommandBarComboBox
Set cb = Application.CommandBars.Add("Ma barre")
Set cbb = cb.Controls.Add(msoControlComboBox)
cbb.AddItem "Choix 1"
cbb.AddItem "Choix 2"
cb.Visible = True
End Sub


A+
Nicolas B.

Bonjour
Je souhaiterais créer une nouvelle barre d'outil avec un combobox
comment faire ?
MErci