boucle sur des checkbox

[erics83]

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 :

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

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....

 

[cp4]

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.

 

[ChTi160]

Bonjour erics83
Bonjour le Fil (cp4)
Bonjour le Forum
Une approche perfectible !
jean marie

 

[ChTi160]

Re
une autre version
jean marie

 

[erics83]

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,

 

[ChTi160]

Re
n’hésite pas si besoin de commentaires!
jean marie

 

[cp4]

Re
n’hésite pas si besoin de commentaires!
jean marie

@ChTi160 bonjour, personnellement je suis intéressé par ton documenté afin de comprendre les modules de classe.
Merci, bonne journée.

 

[ChTi160]

Re
j’espère que cela pourra t'aider , ensuite il faut rechercher (Module Class VBa) ce qui permet d'avoir toutes les possibilités et exemples sur le sujet
c'est ainsi que j'ai opéré.
jean marie