Checkbox imbriqué

Résolu/Fermé

barondentraide - Modifié par barondentraide le 17/04/2012 à 21:58
barondentraide - 18 avril 2012 à 10:58

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

A voir également:

Checkbox imbriqué
Si et ou imbriqué - Guide
Si et recherchev imbriqué - Forum Excel
Pb: Recherchev imbriqué dans fonction Si - Forum Excel
Checkbox vba ✓ - Forum VB / VBA
Html checkbox value=1 or 0 ✓ - Forum PHP

2 réponses

Réponse 1 / 2

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
18 avril 2012 à 04:16

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+

barondentraide
Modifié par barondentraide le 18/04/2012 à 10:49

Salut et merci
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

Réponse 2 / 2

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 18/04/2012 à 10:57

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.

barondentraide
18 avril 2012 à 10:58

lermite222 a écrit:
Pour cacher une ligne Hidden peu aussi avoir la valeur True ou False sauf que c'est l'inverse du checkbox

c'est cela que je voulais savoir
merci

Discussions similaires

VBA : If CheckBox.Value = True Or CheckBox.Value = True Then ...

Virtalbox et activation de VT-x/AMD-V

recherchev imbriqué

[PHP] Récuperer la valeur d'une checkbox

checkbox + onChange

Discussions similaires

Newsletters