Récupérer valeur ComboBox [Résolu]
pitipilot
- Messages postés
- 111
- Date d'inscription
- mercredi 19 mai 2010
- Dernière intervention
- 2 juin 2015
- Messages postés
- 111
- Date d'inscription
- mercredi 19 mai 2010
- Dernière intervention
- 2 juin 2015
A voir également:
- Récupérer valeur combobox
- Récupérer valeur combobox dynamique ✓ - Forum - Visual Basic
- Récupérer valeur combobox (liste déroulante) ✓ - Forum - C / C++ / C++.NET
- Recuperation valeur d'un textbox et la renvoyer dans un combobox ✓ - Forum - VB.NET
- Récupérer valeur d'une ComboBox avec GetCurSel() et GetLBText() (ERREUR C2228) ✓ - Forum - C / C++ / C++.NET
- Recuperer une combobox d'internet - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
5 réponses
Meilleure réponse
/1b436c312a4f438d890245b5db66863e/auth-avatar/b6937c51c15c07206e73fb7a925ca0a8-ucfoutu)
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour,
14) cela s'écrit de manière moins tortueuse, ainsi :
et du coup ===>>
2) la propriété value d'une combobox ne retourne pas forcément la valeur sélectionnée ! Elle retourne ce qui est inscrit dans la zone de saisie (qui peut être modifiée manuellement) !
Si tu veux la valeur de ce qui a réellement été sélectionné, sans le mloindre risque, utilise plutôt :
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
14) cela s'écrit de manière moins tortueuse, ainsi :
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1")
.Name "toto": .LinkedCell "": .Left = 361.5
.Top 268.5: .Width 147: .Height = 27.75
End With
Set toto = ActiveSheet.Shapes("Toto").DrawingObject.Object
toto.AddItem "test1"
toto.AddItem "test2"
et du coup ===>>
MsgBox toto.Value
2) la propriété value d'une combobox ne retourne pas forcément la valeur sélectionnée ! Elle retourne ce qui est inscrit dans la zone de saisie (qui peut être modifiée manuellement) !
Si tu veux la valeur de ce qui a réellement été sélectionné, sans le mloindre risque, utilise plutôt :
If toto.ListIndex >= 0 Then MsgBox toto.List(toto.ListIndex)
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
120 internautes nous ont dit merci ce mois-ci
- Messages postés
- 111
- Date d'inscription
- mercredi 19 mai 2010
- Dernière intervention
- 2 juin 2015
Voici la solution pour ceux qui tomberais sur ce topic :
On nomme la ComboBox
Set Libcb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=361.5, Top:=268.5, Width:=147, Height:= _
27.75)
On nomme la ComboBox
Libcb.name = "Toto"
Libcb.Object.AddItem "test"
MsgBox ActiveSheet.Shapes("Toto").DrawingObject.Object.Value
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Et surtout : écrit comme je te l'ai montré, tu bénéficie de l'intellisense
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.