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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.