Initialisation de plusieurs combobox

Bonjour a tous,
J'ai besoin de plusieur combobox mais qui ont les mm valeurs a l'interieur. En fait dans chaque combobox j'ai 2 valeurs qui sont MC et LC

Pour en initialiser une je dois faire

Code:

---

1 2 3 4 5

Private sub Userform_initialize() Combobox1.additem "MC" , 0 Combobox1.additem "LC" , 1 Combobox1.listeindex = 0 End sub

---

Maintenant je veux pouvoir initialiser tte les combobox dont j'aurais besoin sachant que je ne connais pas le nombres exact de combobox que je dois avoir mais c'est pas un probleme si j'en ai en trop sur ma feuille excel.

Apparement je dois faire quelqe chose de ce genre

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private sub userform_Initialize()   dim ctrl as combobox   For each ctrl in combobox if typeof ctrl is msforms.combobox then combobox.additem "MC", 0 combobox.additem "LC", 1 combobox.listindex=0 end if next ctrl

---

Evidement ça marche pas... jfais des tests pour le moment mais bon rien de concluant pb de collection ...
J'utilise cette page http://silkyroad.developpez.com/VBA/ControlesUserForm/ afin de m'aider car je ne suis pas du tout expérimenté en VB.

Merci a vous d'avoir lu ce post et merci d'avance aux personnes quiy repondront.

Cordialement Selune.

Salut

et avec ça ?

Code:

---

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

Private sub userform_Initialize()   dim ctrl as combobox   For each ctrl in userform.controls if typeof ctrl is msforms.combobox then combobox.additem "MC", 0 combobox.additem "LC", 1 combobox.listindex=0 end if next ctrl

---

salut a toi,

premiere question : tes combo sont sur une feuille ou dans un userform ??

mes combo sont situé sur la feuille excel. J'ai ajouter le userform comme marqué sur la FAQ.

je seche un peu mais 2 choses :

- Si tes combobox sont sur la feuille excel ( et non dans un userform ) ce programme ne fonctionnera pas.

- Ce programme teste 2 fois si l'objet est un combobox.

je seche sur le "in" du "for each" mais sinon ceci devrait marcher :

Code:

---

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

Sub init()   Dim comb As ComboBox   For Each comb In ***   comb.AddItem "MC" comb.AddItem "LC"   Next comb   End Sub

---

Tu n'es pas plus avancé... JE SAIS... j'y travaille...:roll:

C'est déja gentil d'etre disponible et de répondre.
Petite question dans ce cas a quoi cela me sert de rajouter un userform?
J'ai pas trop compris pourquoi on devait l'ajouter... j'en ai peut etre pas besoin.
RemiT j'utilise ce code car je n'ai pas vraiment de compétence en vb (voir aucune ^^) et qu'il me semblait adapté mais il concerne les textbox a la base le liens que j'ai mis envois a ce tuto/faq. Cependant j'ai supposé que cela devrait marcher aussi sur les combobox , dc si tu comptes utiliser une autre syntaxe j'y vois aucun pb. (que tu t'obliges pas a l'utiliser si tu connais plus simple)

Trollinou avec le code proposé il me dit erreur '424' objet requis et evidement ça bug sur la ligne du for each

:oops:

C'est pas combobox mais Object

Code:

---

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

Private sub userform_Initialize()   dim ctrl as object   For each ctrl in userform.controls if typeof ctrl is msforms.combobox then combobox.additem "MC", 0 combobox.additem "LC", 1 combobox.listindex=0 end if next ctrl

---

ajouter un USF ne sert a rien... il est juste utile pour l'exemple.

Citation:

---

Envoyé par trollinou

:oops:

Code:

---

1 2	Private sub userform_Initialize()

---

---

Dans l'exemple, le systeme initialise un userform mais c'est pas ton cas.

Toi, ta procedure sera dans ThisWorkbook et le nom de la procedure sera :
Sub Workbook_Open()

pour initialiser tes combobox à l'ouverture de ton fichier...

Ok bon deja j'oublie le userform.
Marche toujours pas trollinou ^^
Je re sur le forum vers 18h dsl je dois quitter le boulot.
Merci deja pour ces premieres réponses

Sous Excel, il y a deux sortes de ComboBox.

1- Les ComboBox formulaires
Les valeurs sont ajoutées par une plage de cellules

2-Les ComboBox "Boite à outils"
Ces combo sont considérés comme des "range"

Si ces objets sont sur une feuille Excel, il n'est pas possible, à ma connaissance, de les parcourir.
[EDIT] en tout cas pas de la façon que nous abordons [/EDIT]

bonsoir

si les combobox sont issues de la boite à outils controles, tu peux utiliser:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Obj As OLEObject Dim Tableau As Variant   Tableau = Array("MC", "LC")   For Each Obj In ActiveSheet.OLEObjects If TypeOf Obj.Object Is MSForms.ComboBox Then Obj.Object.List = Tableau Obj.Object.ListIndex = 0 End If Next Obj

---

http://excel.developpez.com/faq/?page=OleObject



bonne soirée
michel

merci ça marche niquel.
Merci a tous pour vos reponses.
Je penses reposter sous peu ^^ et en apprendre plus grace a vous.