Discussion :

[sdispro]

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 :

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

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

[issoram]

Bonjour,

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

Code :

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

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.

[sdispro]

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

[issoram]

Pas de fichier joint...

[Bear the french]

Bonjour sdispro,

Remplaces :

Code :

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

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 :

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

Call FillComboBoxWithMonth (Me.ComboBox3)

Bertrand

[sdispro]

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é

Merci à vous 2