Checkbox imbriqué
Résolu
barondentraide
-
barondentraide -
barondentraide -
Bonjour à tous , avec ce code de départ :
j'aimerais que la CheckBox1 en plus d' afficher la ligne 120 fasse ceci :
if CheckBox1 = True Then
CheckBox5 = True
CheckBox6 = True
CheckBox7= True
Et si Checkbox1 = False
CheckBox5 = False
CheckBox6 = False
CheckBox7= False
Merci d'avance
Private Sub CheckBox1_Click()
If CheckBox1 = True Then Sheets("Rap_car").Rows("120:120").EntireRow.Hidden = False
If CheckBox1 = False Then Sheets("Rap_car").Rows("120:120").EntireRow.Hidden = True
End Sub
Private Sub CheckBox2_Click()
If CheckBox2 = True Then Sheets("Rap_car").Rows("121:121").EntireRow.Hidden = False
If CheckBox2 = False Then Sheets("Rap_car").Rows("121:121").EntireRow.Hidden = True
End Sub
Private Sub CheckBox3_Click()
If CheckBox3 = True Then Sheets("Rap_car").Rows("122:122").EntireRow.Hidden = False
If CheckBox3 = False Then Sheets("Rap_car").Rows("122:122").EntireRow.Hidden = True
End Sub
Private Sub CheckBox4_Click()
If CheckBox4 = True Then Sheets("Rap_car").Rows("123:123").EntireRow.Hidden = False
If CheckBox4 = False Then Sheets("Rap_car").Rows("123:123").EntireRow.Hidden = True
End Sub
j'aimerais que la CheckBox1 en plus d' afficher la ligne 120 fasse ceci :
if CheckBox1 = True Then
CheckBox5 = True
CheckBox6 = True
CheckBox7= True
Et si Checkbox1 = False
CheckBox5 = False
CheckBox6 = False
CheckBox7= False
Merci d'avance
2 réponses
Bonjour,
Un peu plus court ? :D
A+
Un peu plus court ? :D
Private Sub CheckBox1_Click()
Rows(120).Hidden = Not CheckBox1.Value
CheckBox5.Value = CheckBox1.Value
CheckBox6.Value = CheckBox1.Value
CheckBox7.Value = CheckBox1.Value
End Sub
Private Sub CheckBox2_Click()
Rows(121).Hidden = Not CheckBox2.Value
End Sub
Private Sub CheckBox3_Click()
Rows(122).Hidden = Not CheckBox3.Value
End Sub
Private Sub CheckBox4_Click()
Rows(123).Hidden = Not CheckBox4.Value
End Sub
A+
Je ne vois pas bien ce que je pourrais expliquer, cela me parais limpide.
A toutes fins..
J'ai enlevé tout ce qui était inutile.
Un CheckBox peu avoir la valeur True ou False
Pour cacher une ligne Hidden peu aussi avoir la valeur True ou False sauf que c'est l'inverse du checkbox, c'est ce que fait le <Not> il inverse la valeur du checkBox.
Ca va comme ça ? :-)
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
A toutes fins..
J'ai enlevé tout ce qui était inutile.
Un CheckBox peu avoir la valeur True ou False
Pour cacher une ligne Hidden peu aussi avoir la valeur True ou False sauf que c'est l'inverse du checkbox, c'est ce que fait le <Not> il inverse la valeur du checkBox.
Ca va comme ça ? :-)
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
bien entendu le résultat est efficace.
Mais j'aimerais bien une explication du code:
Private Sub CheckBox1_Click()
Rows(120).Hidden = Not CheckBox1.Value
Merci d'avance