Discussion :

[thibauc]

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 :

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

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 :

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

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.

[timat35]

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 VBA :

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

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 VBA :

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

lq_appl = "app" & control.index +1

a plouch