Récupérer valeur ComboBox [Résolu]
pitipilot
- Messages postés
- 111
- Date d'inscription
- mercredi 19 mai 2010
- Statut
- Membre
- Dernière intervention
- 2 juin 2015
- Messages postés
- 111
- Date d'inscription
- mercredi 19 mai 2010
- Statut
- Membre
- Dernière intervention
- 2 juin 2015
5 réponses
Meilleure réponse
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
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
204 internautes nous ont dit merci ce mois-ci
- Messages postés
- 111
- Date d'inscription
- mercredi 19 mai 2010
- Statut
- Membre
- 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
- Modérateur
- Dernière intervention
- 11 avril 2018
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.