Discussion :

[pitipilot]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daniel.C]

Bonjour,

Le code suivant fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[pitipilot]

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 ?)

[Daniel.C]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[pitipilot]

Rebonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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