Informations avec "Case à cocher"

[guy72]

Bonjour,
Comment obtenir les informations en sélectionnant une case à cocher ?
J'ai fait des essais avec "zone de texte" ou "Label" mais je ne vois pas.

Peut être une autre solution ?

Merci de votre aide
Guy

Voir exempple fichier joint :

Apparemment, j'ai trouvé avec :

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
        Image1.Visible = True
        Label1.Visible = True
        Label2.Visible = True
        Else
      
        Image1.Visible = False
        Label1.Visible = False
        Label2.Visible = False
        End If


 
End Sub

 

[Si...]

Re : Informations avec "Case à cocher"

Salut

à voir :

Private Sub CheckBox1_Click()
 Image1.Visible = CheckBox1
 ActiveSheet.Shapes("ZoneTexte2").Visible = CheckBox1
 ActiveSheet.Shapes("ZoneTexte3").Visible = CheckBox1
 Label1.Visible = True
End Sub

 

[guy72]

Re : Informations avec "Case à cocher"

Bonjour,
Ok ça fonctionne aussi comme ça

Private Sub CheckBox1_Click()
 Image1.Visible = CheckBox1
 Label1.Visible = CheckBox1
 Label2.Visible = CheckBox1
 End Sub

Merci de ton aide
Cordialement