COMBOBOX

Ben · 3 Décembre 2002

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 · 3 Décembre 2002

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 · 3 Décembre 2002

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

COMBOBOX

Ben

Guest

Ben

Guest

Ben

Guest

Discussions similaires