création combobox en auto

Bonjour,

A L AIDE j'utilise le code suivant pour créer des combobox dans ma feuille excel en automatique mais voilà je voudrais modifier aussi les propriétées linkcell, listfillrange, listrows et listwidth mais losque je lance la macro il me crée la première combobox et plante avec "propriété et méthode non généré par cet objet" Quelqu'un aurait il une solution.

merci

cn

Code:

---

1 2 3 4 5 6 7 8

ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=100, Top:=100, Width:=225, Height:= _ 97.5).Select   with selection .linkcell = "H4" .listfillrange = "intit!a:a" end with

---

En pemplaçant le code

Code:

---

1 2 3 4 5 6

with selection .linkcell = "H4" .listfillrange = "intit!a:a" .listrows= 30 .listwidth = 500 end with

---

par

Code:

---

1 2 3 4

selection.linkcell = "h4" selection.listfillrange = "intit!a:a" selection.listrows= 30 selection.listwidth = 500

---

il s'avert que c'est les propriétés selection.listrows= 30
selection.listwidth = 500 qui posent pb
?????????????
cn

Aaaattention: la combobox que tu insère est celle de la "boite à outils contrôles", pas celle de la barre d'outils "formulaires". ;)

Désolé mais je ne comprend pas trop en fait lorsque je regarde dans les propriétés des combobox aprés leur création en automatique j'accéde bien à la propriété listrows et listwidth alors pourquoi je ne peux pas paramétrer en vba ?

merci

bonne journée:cry:

Essaie lors de la création d'affecter le résultat de la création à un objet, plutôt que d'effectuer la méthode Select dessus.

Si tu regarde le contenu de Selection avant de lui appliquer des propriétés, tu verras que ça ne correspond pas du tout à ce que tu attends. ;)

J'ai écrit le code suivant mais la propriété .listwidth n'est toujours pas reconnue

Code:

---

1 2 3 4 5 6 7 8 9 10 11

dim obj as object obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=100, Top:=100, Width:=225, Height:= _ 97.5)   with obj .linkcell = "H4" .listfillrange = "intit!a:a" .listwidth = 500 end with

---

par contre lorsque j'écrit le code suivant il me prend la largeur mais là j'ai un autre pb car si je met activesheet.combobox(i).listwidth = 500 ou activesheet.combobox & i &.listwidth = 500 ou encore activesheet.obj.name.listwidth = 500 ça ne marche pas. J'avoue que je suis un peu perdu.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

dim obj as object obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=100, Top:=100, Width:=225, Height:= _ 97.5)   with obj .linkcell = "H4" .listfillrange = "intit!a:a" end with   activesheet.combobox1.listwidth = 500

---

Bonjour


Ce n'est pas linkcell mais LinkedCell qu'il faut utiliser.
Et il faut ajouter Object avant les propriétés ListRows et ListWidth.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Obj As OLEObject   Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _ Link:=False, DisplayAsIcon:=False, Left:=100, Top:=100, _ Width:=200, Height:=30)   With Obj .LinkedCell = "H4" .ListFillRange = "intit!a:a" .Object.ListRows = 30 .Object.ListWidth = 100 End With

---

bonne journée
michel

Merci beaucoup decondelite et michel , votre aide à illuminé ma journée depuis hier je ne comprennais pas pourquoi ça ne marchait pas.


michel, en fait pour le linkedcell, c'est une faute de frappe dans ma proc c'est bien ça c'est que j'ai internet sur un autre pc que le mien alors quand il n'y a pas beaucoup de code je le ressaisi à la main.

encore merci beaucoup à vous deux et bonne journée et surtout bonne faite

au fait CA MARCHE