COMBOBOX

[Ben]

Bonjour a tous,

Voila j'ai un petit probleme qui doit vous paraitre mineur, mais voila j'aimerais creer une barre d'outil ayant une combo box et je voudrais que lorsque l'utilisateur selectionne un item, une macro se lance. Pour le moment j'arrive bien a creer ma barre d'outil, je l'incremente de ma combo box et je lui integre la liste de choix. Par contre impossible d'utiliser la Private Sub *****_Change(), je ne sais pas quoi lui mettre et j'aimerais aussi savoir si je dois l'integrer dans le meme module ou dans un module de classe a part??

MErci d'avance

 

[Ben]

Tiens, C moi?

Salut Ben! C Ben... 8)

Bon, tu n'aurais pas un petit exemple stp? je ne vois pas exactement comment fonctionne ton truc...

Ben

 

[Ben]

Tiens regarde l'exemple de ce que j'ai cree, la fin bloque..grrrrrr


Sub Barre_d_outil()

Set Choix_Profil_fonds = CommandBars.Add(Name:="Choix du profil", Position:=msoBarFloating, Temporary:=True)
Choix_Profil_fonds.Visible = True



Set Listeprofil = Choix_Profil_fonds.Controls.Add(Type:=msoControlComboBox)
With Listeprofil
.AddItem "Profil Dynamique", 1
.AddItem "Profil Equilibre", 2
.AddItem "Profil Défensif", 3
.DropDownWidth = 180
.ListIndex = 0

End With

Listeprofil.Caption = "Liste Profil"

End Sub

Private Sub Listeprofil_change()

Select Case Listeprofil.ListIndex
Case Is = 1
ProfilDynamique
End Select


End Sub

Private Sub ProfilDynamique()
Sheets("SELECT DYN-ALLOC").Select
Cells(1, 1).Select
End Sub