Obtenir la valeur sélectionnée d'un activex zone de liste déroulante à l'aide de vba

Comment puis-je obtenir la valeur sélectionnée de la zone de liste déroulante?

j'ai un combobox qui a pour valeurs: la "Corporate" et "Consommateur".

Je veux obtenir la valeur que je choisi, pas sur l'index, et de les stocker dans une chaîne de caractères.

quelque chose comme ceci:

 string a = combobox.value;

(a -> Consommation)

merci

  • Tu fais ça à partir de C#?
  • il a dit qu'il était en train de faire cela à partir de VBA dans la description.
  • Oui il l'a fait 🙂 mais le code ci-dessus le code est en C# 😉
InformationsquelleAutor Raphael | 2012-01-31
  1. 8

    Si votre zone de liste déroulante est incorporé dans une feuille de calcul, vous pouvez utiliser ceci:

    Dim ws as Worksheet
Dim cboCorpConsumer as ComboBox
Dim a as String

Set ws = Worksheets("YourWorksheetName")
Set cboCorpConsumer = ws.OLEObjects("cboNameFromActiveXProperties").Object

a = cboCorpConsumer.Value

    Ou en une seule ligne:

    a = Worksheets("YourWorksheetName").OLEObjects("cboNameFromActiveXProperties").Object.Value
    • C'est une bonne réponse; cependant, j'ai été un peu troublé par le nom de la boîte combo (est-il cboName et vous ajoutez un suffixe standard sur elle?). Cette réponse suppose que le nom de la zone de liste déroulante est "cboNameFromActiveXProperties" de la Même façon, si votre zone de liste modifiable est nommé "ComboBox1", alors vous pouvez utiliser cette syntaxe: a = Worksheets("YourWorksheetName").OLEObjects("ComboBox1").Object.Value
    InformationsquelleAutor mankind_nyc
  2. 1

    Value a un grand "V" en VBA, mais en supposant combobox est le nom de la zone de liste déroulante que vous avez créé sur l'écran, le code fonctionne (sauf que votre instruction d'affectation est faux; voir ci-dessous). Si vous ne savez pas quel est le nom de la zone de liste déroulante est, il est probable ComboBox1. Pour le vérifier, regardez la Name propriété dans le VBA de la fenêtre propriétés.

    Essayez ceci:

    Dim a as String

a = combobox.Value
    • Cela n'a pas fonctionné. La zone de liste déroulante nom est "CBSegmento" alors, j'ai fait exactement comme vous l'a dit. Dim Seg Comme Une Chaîne De Caractères Seg = CBSegmento.Valeur d'Erreur: erreur d'Exécution'424': Objet requis
    • Où est-ce que votre code résident? Est la zone de liste déroulante dans un formulaire utilisateur ou sur la feuille de calcul directement quelque part?
    InformationsquelleAutor Michael Kingsmill