boucle sur des checkbox

erics83

XLDnaute Occasionnel
Bonjour,

Dans un USF, j'ai une série de CheckBox. Lorsque je clique sur une checkBox, cela rend visible un Textbox.

J'ai donc fait :
Code:
Private Sub CB1_change()
AN1.Visible = True
End Sub
Private Sub CB2_change()
AN2.Visible = True
End Sub
Private Sub CB3_change()
AN3.Visible = True
End Sub
Private Sub CB4_change()
AN4.Visible = True
End Sub
Private Sub CB5_change()
AN5.Visible = True
End Sub
Private Sub CB6_change()
AN6.Visible = True
End Sub
Private Sub CB7_change()
AN7.Visible = True
End Sub
Private Sub CB8_change()
AN8.Visible = True
End Sub
Private Sub CB9_change()
AN9.Visible = True
End Sub
Private Sub CB10_change()
AN10.Visible = True
End Sub
Private Sub CB11_change()
AN11.Visible = True
End Sub
Private Sub CB12_change()
AN12.Visible = True
End Sub
Private Sub CB13_change()
AN13.Visible = True
End Sub
Private Sub CB14_change()
AN14.Visible = True
End Sub
Private Sub CB15_change()
AN15.Visible = True
End Sub
A tout hasard, n'y aurait-il pas une "écriture plus "fluide"....c'est à dire une boucle style
Code:
For i = 1 to 15
Me.controls("CB" & i)
....car là, j'ai simplifié et en fait lorsque le checkbox passe à true, il y a plusieurs textboxs, DtPicker qui deviennent visibles....

En vous remerciant pour votre aide et/ou conseils....
 

Fichiers joints

cp4

XLDnaute Impliqué
Bonjour,

Je pense qu'il faudrait passer par un module de classe pour gérer plusieurs contrôles.
Désolé de ne pouvoir te venir en aide, je suis pas arriver à ce stade.
Si quelqu'un de plus compétent passait par là.
Je t'ai donné une piste à creuser.
Bonne journée.
 

erics83

XLDnaute Occasionnel
Super Merci ChTi160,
Les 2 exemples fonctionnent parfaitement et j'en ai compris le fonctionnement grâce vos explications. Merci ;):)

Merci cp4, effectivement et comme l'a très bien démontré ChTi160, il fallait passer par un module de classe....merci pour la piste.

Merci pour vos aides,
 

Discussions similaires


Haut Bas