Créer une ComboBox en VBA

Bonjour, je n'arrive pas à créer une combobox automatiquement en VBA et lui donner un nom.

Code:

---

1 2 3

ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=361.5, Top:=268.5, Width:=147, Height:= _ 27.75).Select

---

Voici ce que me donne l'enregistreur de Macro mais cela ne fonctionne pas lorsque je l'injecte dans du code.

Je remercie d'avance ceux qui se pencheront sur mon problème :)

Bonjour,

Le code suivant fonctionne :

Code:

---

1 2 3 4

Set cb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=361.5, Top:=268.5, Width:=147, Height:= _ 27.75) cb.ListFillRange = "A1:A10"

---

Qu'est-ce qui ne fonctionne pas ?

Merci de m'avoir répondu :).

En utilisant "Set cb = ", mon problème a été résolu un grand merci.

Par curiosité, quelle est la différence avec le bout de code que j'utilisais auparavant ? (Allocation dynamique ?)

En utilisant "Set cb", on crée une variable représentant le combobox. On peut se servir de cette variable pour ajouter des propriétés. On aurait pu utiliser :

Code:

---

1 2 3 4

ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=361.5, Top:=268.5, Width:=147, Height:= _ 27.75).Select Selection.ShapeRange(1).OLEFormat.Object.ListFillRange = "A1:A10"

---

Rebonjour,

J'ai utilisé ce code pour créer ma combobox :

Code:

---

1 2 3

Set cb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=361.5, Top:=268.5, Width:=147, Height:= _ 27.75)

---

Cependant je n'arrive pas à insérer des valeurs dedans sachant que celles ci proviennent d'un tableau dynamique.
L'instruction "ListFillRange" ne rempli pas ma combobox et l'instruction "AddItem" n'est elle pas disponible. Idem pour récupérer la valeur, l'option "Value" n'est pas disponible si quelqu'un a une idée je suis preneur :)

Code:

---

1 2 3 4 5

Set cb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=361.5, Top:=268.5, Width:=147, Height:= _ 27.75) cb.Object.AddItem "toto" cb.Name = "monCombobox"

---

Pour la valeur :

Code:

---

MsgBox ActiveSheet.Shapes("monCombobox").DrawingObject.Object.Value

---

Merci beaucoup ça marche très bien :).

Bonne journée