Valeur et non l'id d'un item d'une dropdown list vba excel 2010
Bonjour, je cherche à obtenir la valeur (i.e le label) que j'ai fixé dans une dropdown list via le menu ruban d'excel 2010.
Le code de ma dropdown est dans customui.xml de mon fichier .xlsm
--------------------------------------------------------------
Code:
1
2
3
4
| <dropDown id="Drop_apps" label="Applications" onAction="get_appl" >
<item id="it1" label="app1" />
<item id="it2" label="app2" />
</dropDown> |
Le code VBA dans un module est le suivant
----------------------------------------------
Code:
1
2
3
4
5
6
7
8
9
10
| 'Variable globale pour l''application et l''environnement
Global lq_appl As String
Global lq_env As String
'Permet d'obtenir l''application choisie dans la liste de valeur
Sub get_appl(control As IRibbonControl, id As String, index As Integer)
If control.id = "Drop_apps" Then
lq_appl = control.id
End If
End Sub |
Je voudrais par exemple obtenir la valeur apps1 ou app2 lorsque je selectionne mon item. Le code du get_appl me retourne toujours it1 ou it2.
Est-ce que qqun aurait une idée comme le faire ?
Merci pour votre aide.
recuperer valeur d'un controle du Ruban
Bonjour thibauc
Je comprend pas bien la difficulté mais voila une solution
Peut etre tu ne veux pas faire apparaitre les valeurs de label dans ton code VBA ?
exemple
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Sub get_appl(control As IRibbonControl, id As String, index As Integer)
If control.id = "Drop_apps" Then
select case control.index
case 0
lq_appl = "app1"
case 1
lq_appl = "app2"
end select
End If
End Sub |
ou alors si tes label se suivent et se ressemblent
Code:
lq_appl = "app" & control.index +1
a plouch
