Remplissage combobox multiples

Version imprimable

Bonjour le Forum,

J'aimerai décharger mon code vba concernant le remlissage de mes combobox.

Par exemple, j'utilise ce code pour remplir une combobox pour avoir les mois de l'année intégrés:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 With Me.ComboBox3 .AddItem "JANVIER" .AddItem "FÉVRIER" .AddItem "MARS" .AddItem "AVRIL" .AddItem "MAI" .AddItem "JUIN" .AddItem "JUILLET" .AddItem "AOÛT" .AddItem "SEPTEMBRE" .AddItem "OCTOBRE" .AddItem "NOVEMBRE" .AddItem "DÉCEMBRE" End With
Jusque là, pas de problème, cependant j'ai 50 combobox qui devront avoir ces même données.

Est ce qu'il y a un moyen de déclarés plusieurs combobox qui auront la meme liste prédéfinie?

Merci par avance

Bonjour,

Déjà pour alléger ton code au niveau de l'ajout des mois tu peux faire un truc du style:
Code:

1 2 3 4 5 Const listeMois as String="JANVIER;FEVRIER;MARS;AVRIL;MAI;JUIN;JUILLET;AOUT;SEPTEMBRE;OCTOBRE;NOVEMBRE;DECEMBRE" Sub FillComboBoxWithMonth (MyComboBox as ComboBox) MyComboBox.List=split(listeMois,";") end Sub
Ensuite, il te suffit de boucler sur l'ensemble des comboBox concernés et d'appeler la subroutine ci dessus.

J'espère avoir pu t'aider.

27/08/2012, 10h12
sdispro

re

Bonjour Issoram et merci de ta réponse.

Je crois ne pas avoir tout compris, je joint en classeur si tu peux m'expliquer au mieux...

Merci encore
27/08/2012, 10h19
issoram

Pas de fichier joint...

Bonjour sdispro,

Remplaces :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Me.ComboBox3
.AddItem "JANVIER"
.AddItem "FÉVRIER"
.AddItem "MARS"
.AddItem "AVRIL"
.AddItem "MAI"
.AddItem "JUIN"
.AddItem "JUILLET"
.AddItem "AOÛT"
.AddItem "SEPTEMBRE"
.AddItem "OCTOBRE"
.AddItem "NOVEMBRE"
.AddItem "DÉCEMBRE"
End With

Par

Code:

Call FillComboBoxWithMonth (Me.ComboBox3)

Bertrand

27/08/2012, 10h47
sdispro

1 pièce(s) jointe(s)

re

Bonjour Bear the Frenh, rebonjour issoram.

Désolé pour le fichier non joint...

Pour ton code Bear the french, je comprend pas.

Je pense cherché trop compliqué :calim2:

Merci à vous 2
27/08/2012, 11h05
Bear the french

Je n'ai que l'Iphone cette semaine. Je ne peux donc pas accéder à ton fichier.

La solution d'Issoram semble correcte (colles son code dans un module).
Je me suis permis d'intervenir juste pour t'indiquer comment appeler la procédure.

Bertrand

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Const listeMois As String = "JANVIER;FEVRIER;MARS;AVRIL;MAI;JUIN;JUILLET;AOUT;SEPTEMBRE;OCTOBRE;NOVEMBRE;DECEMBRE"
Sub FillComboBoxWithMonth(MyComboBox)
     MyComboBox.List = Split(listeMois, ";")
End Sub
Private Sub UserForm_Initialize()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeOf Ctrl Is MSForms.ComboBox Then FillComboBoxWithMonth Ctrl
Next Ctrl
End Sub

Cordialement.

27/08/2012, 11h14
sdispro

re

Merci Bertrand, pas de souci, surtout si c'est les vacances. :ccool:
Merci également à gFZT82.

Le problème est que: le code marche mais et s'applique à toutes les combobox, cependant, je voudrais que celuici soit par exemple à la combo 1 et 2 mais pas la 3.

Mon souhiat à l'avenir est de déchargé mes codes vba sur mes userforms surtout quand un pourrais s'adapter à plusieurs.

En esperant avoir été clair :cry:

Et bien au lieu de boucler sur tous les UserForm comme le fait GFZT82, tu boucles sur ceux qui t’intéressent:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Const listeMois As String = "JANVIER;FEVRIER;MARS;AVRIL;MAI;JUIN;JUILLET;AOUT;SEPTEMBRE;OCTOBRE;NOVEMBRE;DECEMBRE"
 
Sub FillComboBoxWithMonth(MyComboBox)
     MyComboBox.List = Split(listeMois, ";")
End Sub
 
'Puis par exemple:
Private Sub UserForm_Initialize()
  Dim i as Integer  
  Dim ListeComboBox As variant
  Dim Ctrl as Control
  ListeComboBox=Array("ComboBox1","ComboBox2")
  For i = Lbound(ListeComboBox) to Ubound(ListeComboBox)
    'Ici il faudrait tester l'existence du Control dans le UF et son type
    Set Ctrl = Me.Controls(ListeComboBox(i))
    FillComboBoxWithMonth Ctrl
  Next i  
End Sub

27/08/2012, 11h43
sdispro

re

Merci à tous les 3.
C'est ok.
Je m'étais imaginer un truc plus souple...

En tout cas, cela marche et déchargera quand même bien mes vieux codes.

Bonne journée;)