Discussion :

[rv-80]

Bonjour,

sous Excel VBA, J'ai créé une barre outils perso et une liste de choix (ComboBox) mais je n'arrive pas à créer la procédure qui réalise une action lorsque je clique sur ces différents choix (une action différente par choix)

merci de votre aide!

[Invité]

Bonjour et bienvenue sur le forum Office de DVP.

Voici un petit exemple :

Dans la procédure je crée une barre (tutu avec un contrôle combobox)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub test()
    Dim cmb As CommandBar
    Dim btn As CommandBarComboBox
 
    Set cmb = Application.CommandBars.Add("tutu", msoBarFloating)
    cmb.Visible = True
    Set btn = cmb.Controls.Add(msoControlComboBox)
    With btn
       .AddItem "toto"
       .AddItem "tutu"
       .AddItem "tata"
       .OnAction = "=trip()"
       .Caption = "truc"
    End With
End Sub

Sur le OnAction j'appelle la fonction trip()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Function trip()
    MsgBox CommandBars("tutu").Controls(1).List(CommandBars("tutu").Controls(1).ListIndex)
End Function

Je récupère la ligne sélectionnée avec ListIndex, ce qui me donne un numéro avec lequel je récupére l'élément List, ce qui me donne le nom.

Starec