Discussion :

[george33]

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.

[NVCfrm]

bonsoir,

Code :

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

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

[Docmarti]

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