Réinitializer une série de cases à cocher

guy72 · 12 Avril 2012

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.

Code:

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 · 12 Avril 2012

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

Bonjour Guy

Tu peux essayer ainsi:

Code:

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

guy72 · 12 Avril 2012

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

Code:

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 · 13 Avril 2012

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

Re

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

guy72 · 13 Avril 2012

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

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

MJ13 · 13 Avril 2012

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 · 13 Avril 2012

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

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

Code:

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"

Réinitializer une série de cases à cocher

guy72

XLDnaute Impliqué

MJ13

XLDnaute Barbatruc

guy72

XLDnaute Impliqué

MJ13

XLDnaute Barbatruc

Pièces jointes

guy72

XLDnaute Impliqué

MJ13

XLDnaute Barbatruc

Pièces jointes

guy72

XLDnaute Impliqué

Discussions similaires