récupérer résulat liste déroulante formulaire

[skoobi]

Bonjour le forum,
je cherche à récupérer en VBA le résulat affiché dans une liste déroulante créée par la barre d'outil formulaire.
Je précise que cette liste déroulante n'a pas de cellule liée.
J'ai essayé ceci mais sans résultat:
debug.Print ActiveSheet.Shapes("Drop Down 1").TextFrame.Characters.text
debug.Print ActiveSheet.Shapes("Drop Down 1").oleformat.object.text

erreur 1004: impossible de lire la propriété text de la classe dropdown.

Merci pour votre aide.

 

[Cousinhub]

Re : récupérer résulat liste déroulante formulaire

Bonsoir Skoobi, le forum

en supposant ta liste appelée liste_semaine :

With ActiveSheet
idx = .DrawingObjects("liste_semaine").Value
maval = .DrawingObjects("liste_semaine").List(idx)
End With

Bonne soirée

 

[JeanMarie]

Re : récupérer résulat liste déroulante formulaire

Bonsoir

Il te faut utiliser la propriété ControlFormat de l'objet Shapes.

Fait un essai avec

Sub ValeurListeDéroulanteObjet()
Dim vLIndex As Byte
Dim vPlage As Range
vLIndex = ActiveSheet.Shapes("Drop Down 1").ControlFormat.ListIndex
Set vPlage = Range(ActiveSheet.Shapes("Drop Down 1").ControlFormat.ListFillRange)
debug.Print vPlage(vLIndex)
End Sub

Attention, si tu as ajouté les valeurs dans la liste déroulante, par un code VBA utilisant la méthode AddItem, ce code que ne fonctionnera pas. Il ne fonctionnera pas non plus, si tu fais une multi-sélection dans ta liste.

Pour plus de facilité, je te conseille quand même d'utiliser la cellule liée.

La solution de bhbh, fonctionne très bien aussi.

@+Jean-Marie

 

[skoobi]

Re : récupérer résulat liste déroulante formulaire

Bonjour bhbh JeanMarie,
nickel chrome, merci!!