FORUM Tom's Hardware » Programmation » VB / VBA / VBS » [non résolu^^]Récupérer valeur d'une liste déroulante (vba excel)
 

[non résolu^^]Récupérer valeur d'une liste déroulante (vba excel)

Il y a 217 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : [non résolu^^]Récupérer valeur d'une liste déroulante (vba excel)
 
dtom
Plus d'informations
n°34111
25-07-2007 à 19:26:12

Bonjour,
 
Voilà quelques jours que je cherche la méthode pour récupérer la valeur d'une liste déroulante (objet de formulaire), insérée directement depuis une feuille de calcul, et non un  userform.
 
 
Je cherche également si il est possible de mettre les données dans cette liste sans passer par une sélection de cellules.
 
Merci d'avance
 
(ps : kangol t'énerve pas :D)


Message édité par dtom le 25-07-2007 à 20:27:36

KangOl
Profil : Pointeur
Plus d'informations
n°34114
25-07-2007 à 19:56:58

bha c'est pas moi qui vais m'enerver, c'est zeb :o


---------------
Da Bidz Triad©®™: Bidz Interceptor
.:: Smileyz version 4.2 [050625]::. -- Code source disponible sous licence GPL.
[u
dtom
Plus d'informations
n°34116
25-07-2007 à 20:14:32

;)

zeb
Profil : Modérateur libre
Plus d'informations
n°34117
25-07-2007 à 20:54:32

zeb is zen ...
 
Je ne comprends pas bien les questions. Pourrais-tu détailler ?


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
dtom
Plus d'informations
n°34148
26-07-2007 à 13:01:38

Donc, j'ai créer une liste déroulante dans une feuille excel.
 
Et je voudrais récuperer la valeur sélectionnée de la liste déroulante en code VBA.
 
Ce qui donne ca :
 
http://img515.imageshack.us/img515/9620/listedermacrokc5.jpg


Message édité par dtom le 26-07-2007 à 13:22:24
zeb
Profil : Modérateur libre
Plus d'informations
n°34154
26-07-2007 à 13:55:16

A bas quand c'est bien expliqué ! :o
 
C'est ça que tu cherches ?

Code :
  1. Workbooks("Classeur1" ).Worksheets("Feuil1" ).OLEObjects("ComboBox1" ).Object.Value


 
Y'a plus qu'à mettre [RESOLU] dans le titre :sol:


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
dtom
Plus d'informations
n°34156
26-07-2007 à 14:17:36

Merci pour la réponse, mais ... :(
 
J'ai mis ceci :
 

Code :
  1. test_var = Worksbooks("Valeurs en cours 0002.xls" ).Worksheets("Macros" ).OLEObjects("variation_stock" ).Object.value


 
Et j'ai une erreur :  
"erreur d'exécution 1004
Imopssible de lire la propriété OLEObjects de la classe Worksheet
 
ps : j'utilise Excel 2003


Message édité par dtom le 26-07-2007 à 14:35:51
zeb
Profil : Modérateur libre
Plus d'informations
n°34163
26-07-2007 à 14:51:14

[PAS ENCORE RESOLU]

 


Essaie ça :

Code :
  1. Dim c As OLEObject
  2.    
  3. For Each c In Worksbooks("Valeurs en cours 0002.xls" ).Worksheets("Macros" ).OLEObjects
  4.     Debug.Print c.Name
  5. Next


Le vrai nom de ta combo devrait apparaître dans la fenêtre DEBUG.


Message édité par zeb le 26-07-2007 à 15:01:55

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
dtom
Plus d'informations
n°34168
26-07-2007 à 15:10:23

je vien de trouver une solution de secours, mais pas trés propre, cela consite à liée une cellule, et faire des conditions sur le code ( ligne 1, 2 et 3, pour mon cas précis, c'est ok ).
 
je teste quand même ton code, pour infos ;)

hoegarden3 1
Plus d'informations
n°34173
26-07-2007 à 15:39:55

tu peux m'expliquer comment tu a creer une liste déroulante sur excel sans faire une userform ?


---------------

 

 
zeb
Profil : Modérateur libre
Plus d'informations
n°34181
26-07-2007 à 16:55:04

Ben en posant une combobox depuis la barre d'outils "Boîte à outils Contrôles" [:spamafote]

Message cité 1 fois

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
dtom
Plus d'informations
n°34210
26-07-2007 à 19:30:41

Le code que tu ma donné ne fesait rien apparaitre en mode debug (F8).

zeb
Profil : Modérateur libre
Plus d'informations
n°34211
26-07-2007 à 19:38:08

:whistle:
MSVB - Menu Affichage/Fenêtre Exécution [Ctrl+G]


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
dtom
Plus d'informations
n°34213
26-07-2007 à 20:35:16

J'ai rien qui apparait :o

Message cité 1 fois
zeb
Profil : Modérateur libre
Plus d'informations
n°34228
27-07-2007 à 11:58:43

a écrit :

Ben en posant une combobox depuis la barre d'outils "Boîte à outils Contrôles" [:spamafote]


caramou a écrit :

J'ai rien qui apparait :o

 

Han, tu n'as pas utilisé la barre d'outils "Boîte à outils Contrôles" mais la barre "Formulaire" !
Ton composant ne s'appelle pas "Combobox1" mais "Drop Down 1" !

 

Ceci pour voir ton composant :

Code :
  1. Dim s As Shape
  3. With Workbooks("Classeur1" ).Worksheets("Feuil1" )
  4.     Debug.Print "Nombre d'objets sur la feuille : " & Shapes.Count
  5.     For Each s In .Shapes
  6.         Debug.Print "- "; s.Name
  7.     Next
  8. End With
 

Donc la réponse a ton problème :

  • Ta solution de contournement est LA solution.


Tips: Utilise les objets OLE de la barre d'outils "Boîte à outils Contrôles".


Message édité par zeb le 27-07-2007 à 11:59:21

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
dtom
Plus d'informations
n°34256
27-07-2007 à 16:40:55

ok, merci ^^

zeb
Profil : Modérateur libre
Plus d'informations
n°34257
27-07-2007 à 17:41:16

Est-ce résolu maintenant ? :)


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
charly888
Plus d'informations
n°38972
15-07-2008 à 15:48:56

Bonjour,
 
J'ai exactement le même problème que dtom (1 an après sur excel 2007).
 
Pareil, j'ai dessiné une combobox avec controles, je l'ai remplie avec une plage de mes feuilles.
Mais j'ai besoin de retrouver la valeur choisie dans la combo pour faire un tri sur une autre page et ainsi afficher un beau graphe.
 
Voici le code qui me permet de faire le tri:

    Sheets("ASD DPQR Tier 1" ).Select
    Rows("1:1" ).Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$DG$176" ).AutoFilter Field:=10
    Sheets("Graph Highlight" ).Select
     
    Sheets("ASD DPQR Tier 1" ).Select
    Range("J1" ).Select
    ActiveSheet.Range("$A$1:$DG$176" ).AutoFilter Field:=10, Criteria1:= _
        "LO1_R1X3_12"

'Ici entre guillemets, une des valeurs que j'aimerais récupérer de ma combo.
'J'ai déjà essayé avec Combobox1.Value, mais comme je ne connais pas le nom de la combo ça ne sert à rien.
'Pour le code ci dessus, pour retrouver le nom, je n'arrive pas à le faire marcher.
'Drop Down 1 ne marche pas non plus.


    Sheets("Graph Highlight" ).Select
 
Merci d'avance pour vos réponses,
 
Charly
 
zeb
Profil : Modérateur libre
Plus d'informations
n°38977
15-07-2008 à 17:45:15

Salut Charly,
 
Vire-moi ces couleurs infâmes. Tu en profiteras pour utiliser la balise [code], conformément au règlement. Je suis sûr que tu attendais d'autres commentaires :/


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...
charly888
Plus d'informations
n°38979
15-07-2008 à 17:52:17

Bonjour,  
 
J'ai exactement le même problème que dtom (1 an après sur excel 2007).  
 
Pareil, j'ai dessiné une combobox avec controles, je l'ai remplie avec une plage de mes feuilles.  
Mais j'ai besoin de retrouver la valeur choisie dans la combo pour faire un tri sur une autre page et ainsi afficher un beau graphe.  
 
Voici le code qui me permet de faire le tri:  
 

Code :
  1. Sheets("ASD DPQR Tier 1" ).Select
  2.     Rows("1:1" ).Select
  3.     Selection.AutoFilter
  4.     ActiveSheet.Range("$A$1:$DG$176" ).AutoFilter Field:=10
  5.     Sheets("Graph Highlight" ).Select
  6.    
  7.     Sheets("ASD DPQR Tier 1" ).Select
  8.     Range("J1" ).Select
  9.     ActiveSheet.Range("$A$1:$DG$176" ).AutoFilter Field:=10, Criteria1:= _
  10.         "LO1_R1X3_12"
  11.     Sheets("Graph Highlight" ).Select


 
'Ici entre guillemets ("LO1_R1X3_12" ), une des valeurs que j'aimerais récupérer de ma combo.  
'J'ai déjà essayé avec Combobox1.Value, mais comme je ne connais pas le nom de la combo ça ne sert à rien.  
'Pour le code ci dessus, pour retrouver le nom, je n'arrive pas à le faire marcher.  
'Drop Down 1 ne marche pas non plus.  
 
 
Merci d'avance pour vos réponses,  
 
Charly  
 
 
PS: C'est bon comme ça?
oui c'est sur, j'ai attendu une réponse toute l'après midi, au moment où j'allais éteindre l'ordi, je reçoit le message, tout excité j'ouvre et non pas de réponse :-(

zeb
Profil : Modérateur libre
Plus d'informations
n°38981
15-07-2008 à 18:04:58