Discussion :

[Selune6666]

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.

[trollinou]

Salut

et avec ça ?

Code :

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

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

[RemiT]

salut a toi,

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

[Selune6666]

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

[RemiT]

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 :

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

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...

[Selune6666]

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

[trollinou]

C'est pas combobox mais Object

Code :

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

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

[RemiT]

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

Code :

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

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...