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

skoobi · 16 Octobre 2007

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 · 16 Octobre 2007

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 · 16 Octobre 2007

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

Code:

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 · 17 Octobre 2007

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

Bonjour bhbh JeanMarie,
nickel chrome, merci!!

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

skoobi

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

JeanMarie

XLDnaute Barbatruc

skoobi

XLDnaute Barbatruc

Discussions similaires

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

skoobi

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

JeanMarie

XLDnaute Barbatruc

skoobi

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency