Récupération valeur listbox en vba (sans userform)

Version imprimable

06/06/2013, 22h26
george33

Récupération valeur listbox en vba (sans userform)

Bonsoir,

sans utiliser de Userform, j'ai inséré dans une feuille Excel 2 zones de liste déroulante (ListeA dans contrôles de formulaire et ListeB dans Contrôle ActiveX).

Étant un peu novice, je souhaiterais savoir comment récupérer dans une variable VBA la valeur sélectionnée dans ces listes (une seule colonne dans chacun des cas)

Merci.

bonsoir,

Code:

1
2
3
 
n = Feuil1.Shapes("zone de liste x").ControlFormat.ListIndex 'contrôles de formulaire 
n = Feuil1.ListBox1.ListIndex 'Contrôle ActiveX

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'Zone de liste déroulante
Sub Zonecombinée1_QuandChangement()
 
With ThisWorkbook.Sheets("feuil1").Shapes("Drop Down 1").ControlFormat
    MsgBox .Value: Rem retourne l'index
    MsgBox .List(.Value): Rem retourne le text
End With
 
End Sub
 
'Zone de liste
Sub Zonedeliste7_QuandChangement()
 
With ThisWorkbook.Sheets("feuil1").Shapes("zone de liste 1").ControlFormat
    MsgBox .Value: Rem retourne l'index
    MsgBox .List(.Value): Rem retourne le text
End With
'
End Sub