Liste de case à cocher

[Jean-Marc]

Bonsoir à tous,

Je n'arrive pas à traiter une liste de case à cocher (bouton d'option, ...) d'une traite.

J'aimerais écrire :

For I = 1 to N
Objet("CheckBox" & I).Caption = Cells(1, I).Value
Next I

au lieu de:

CheckBox1.Caption = Cells(1, 1).Value
CheckBox2.Caption = Cells(1, 2).Value
CheckBox3.Caption = Cells(1, 3).Value
....

Merci d'avance pour votre aide.
Jean-Marc

 

[salim]

Bonsoir Jean-Marc, et le Forum

Jean-Marc tu peux regarder ce Lien suppriméça peux te donner un début de solution.

@+ salim

 

[Jean-Marc]

Merci, je vais essayer...

A+
Jean-Marc

 

[m.lecxe]

Salut,

je crois que tu peux ecrire

For I = 1 to N
Controls("CheckBox" & I).Caption = Cells(1, I).Value
Next I


@+

 

[Jean-Marc]

Merci, ça fonctionne très bien.

A bientôt,

Jean-Marc