Remplir un grand nombre de comboBox avec une boucle

Remplir un grand nombre de comboBox avec une boucle - VB/VBA/VBS - Programmation

Marsh Posté le 11-12-2007 à 09:53:53    

Bonjour,
J'ai besoin de remplir une trentaine de ComboBox, et je me demandais s' il ne serai pas possible d'utiliser une boucle pour le faire.
Il faut savoir que les données à insérer dans les comboBox sont identique d'une comboBox à l'autre et les noms de mes comboBox se "suivent" (ex: ComboBox1, ComboBox2, ComboBox3, ...).
 
Je vous remercie d'avance.
Flo

Reply

Marsh Posté le 11-12-2007 à 09:53:53   

Reply

Marsh Posté le 12-12-2007 à 11:06:27    

Salut, j'ai trouvé ça sur le forum vbFrance, ca pourra t'aider je pense :
 
Tu peux faire une boucle For Each :
<code>
 
Private Sub Form_Load()
     
    ' Déclaration
     Dim Ctrl As Control
         
             For Each Ctrl In Me ' Me Représente ton formulaire
                 If TypeOf Ctrl Is ComboBox Then
                     Ctrl.AddItem "Test"
                 End If
             Next Ctrl
             
             Set Ctrl = Nothing
 
End Sub
</code>
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed