checkbox imbriqué Résolu/Fermé

Question

Bonjour à tous , avec ce code de départ :   

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

lermite222 · Accepted Answer

Bonjour,
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+

lermite222 · Answer

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.

Checkbox imbriqué

2 réponses

Discussions similaires