Réinitializer une série de cases à cocher

[guy72]

Bonjour

Quand je fais "Mode création" et "Insérer", toutes images précédentes apparaissent.
Quand je veux voir ce que cela donne, les images précédentes sont toujours là.
Il faut "cocher" et "décocher" pour les faire disparaître.

J'ai mis une case à cocher "RAZ" avec le code suivant, pour que cela soit plus facile, mais c'est lourd.

Private Sub CheckBox30_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
'Etc......Etc.....
End Sub

Y a-t-il une solution plus simple que de copier "Image1.Visible = False, 2, 3 etc........ ?

Merci de votre aide
Cordialement
Guy

 

[MJ13]

Re : Réinitializer une série de cases à cocher

Bonjour Guy

Tu peux essayer ainsi:

Private Sub CheckBox4_Click()
For i = 1 To 3
Me.Controls("checkbox" & i) = False
Next
End Sub

 

[guy72]

Re : Réinitializer une série de cases à cocher

Bonjour,

J'ai essayé avec ton code, j'ai le message suivant.

Erreur de compilation
Menbre de méthode ou de données introuvable

J'ai éssayé autres chose
J'ai 30 "CheckBox",j'ai mis le code suivant

Private Sub CheckBox31_Click()
For i = 1 To 30
Me.Controls("Checkbox" & i) = False
Next
End Sub

Mais, ça ne fonctionne pas mieux

Cordialement
Guy

 

[MJ13]

Re : Réinitializer une série de cases à cocher

Re

Rgarde dans ce fichier, j'ai rajouté un RAZ.

 

[guy72]

Re : Réinitializer une série de cases à cocher

Bonjour,
Ok, impeccable !!, je vais adapter ça.
Merci de ton aide
@+
Cordialement
Guy

 

[MJ13]

Re : Réinitializer une série de cases à cocher

Re

Sinon je te conseille de mettre des options buttons. Mais la, cela peut devenir plus complexe 🙂.

 

[guy72]

Re : Réinitializer une série de cases à cocher

Oui, je compte le faire directement dans le code des cases à cocher

Private Sub CheckBox1_Click()
Image1.Visible = CheckBox1
Image3.Visible = False
Image5.Visible = False
End Sub

C'est vrai qu'avec beaucoup d'images, cela va faire beaucoup de lignes et joué avec "True et False"