OVH Cloud OVH Cloud

checkbox hierarchie

4 réponses
Avatar
ed
bonjour,
J'ai créé 5 checkbox.
Ces 5 checkbox ont pour but de masquer certains onglets. Sur les onglets qui
restent, ils masquent certaines lignes.
Le déterminant de la checkbox_1 est un objet (toute années confondues...)
Le déterminant des 4 autres: les années (hors objet).

Existe t il un moyen de hiérarchiser ces boxes pour un controle plus efficace.
Car si je checke les boxes des années et qu'après je clique le premier
onglet, ma sélection est forcément erronée.
Merci de vos conseils.
ed

4 réponses

Avatar
JB
Bonjour,

Code dans checkbox1 pour activer/désactiver checkbox2,checkbox3:

Private Sub CheckBox1_Click()
CheckBox2.Enabled = CheckBox1.Value
CheckBox3.Enabled = CheckBox1.Value
End Sub


bonjour,
J'ai créé 5 checkbox.
Ces 5 checkbox ont pour but de masquer certains onglets. Sur les onglets qui
restent, ils masquent certaines lignes.
Le déterminant de la checkbox_1 est un objet (toute années confondues ...)
Le déterminant des 4 autres: les années (hors objet).

Existe t il un moyen de hiérarchiser ces boxes pour un controle plus ef ficace.
Car si je checke les boxes des années et qu'après je clique le premier
onglet, ma sélection est forcément erronée.
Merci de vos conseils.
ed


Avatar
ed
Merci JB, cela répond parfaitement à ma problématique..


Bonjour,

Code dans checkbox1 pour activer/désactiver checkbox2,checkbox3:

Private Sub CheckBox1_Click()
CheckBox2.Enabled = CheckBox1.Value
CheckBox3.Enabled = CheckBox1.Value
End Sub


bonjour,
J'ai créé 5 checkbox.
Ces 5 checkbox ont pour but de masquer certains onglets. Sur les onglets qui
restent, ils masquent certaines lignes.
Le déterminant de la checkbox_1 est un objet (toute années confondues....)
Le déterminant des 4 autres: les années (hors objet).

Existe t il un moyen de hiérarchiser ces boxes pour un controle plus efficace.
Car si je checke les boxes des années et qu'après je clique le premier
onglet, ma sélection est forcément erronée.
Merci de vos conseils.
ed






Avatar
ed
Petit détail JB,
avec ton code, c'est génial car une fois la checkbox 1 scellée dans le
marbre, je peux checker les années à ma guise,
Pt prb qd même si mon utilisateur se trompe et décide de checker et
dechecker les années, cela fait apparaitre des onglets qui ne devraient pas...
Y a til un moyen de réinitialiser dans le cas ou une checkbox a déjà été
cochée?...
ou même réinitialiser le process de départ, celui ou tous les onglets
étaient visibles à l'ouverture du fichier?
Enorme merci
ed




Bonjour,

Code dans checkbox1 pour activer/désactiver checkbox2,checkbox3:

Private Sub CheckBox1_Click()
CheckBox2.Enabled = CheckBox1.Value
CheckBox3.Enabled = CheckBox1.Value
End Sub


bonjour,
J'ai créé 5 checkbox.
Ces 5 checkbox ont pour but de masquer certains onglets. Sur les onglets qui
restent, ils masquent certaines lignes.
Le déterminant de la checkbox_1 est un objet (toute années confondues....)
Le déterminant des 4 autres: les années (hors objet).

Existe t il un moyen de hiérarchiser ces boxes pour un controle plus efficace.
Car si je checke les boxes des années et qu'après je clique le premier
onglet, ma sélection est forcément erronée.
Merci de vos conseils.
ed






Avatar
JB
Je n'ai pas compris la question.
Voici un autre exemple + élaboré:
-on cache tous les onglets de la même couleur à l'aide d'une boucle.

http://cjoint.com/?gbiX051wzs


Private Sub CheckGroupe1_Click()
For Each c In Sheets("Accueil").OLEObjects
If c.Object.GroupName = "Groupe1" Then
c.Object.Enabled = CheckGroupe1.Value
End If
Next
End Sub

Private Sub CheckGroupe1Visible_Click()
For Each f In ActiveWorkbook.Sheets
If f.Tab.ColorIndex = 45 Then
Sheets(f.Name).Visible = CheckGroupe1Visible.Value
End If
Next
For Each c In Sheets("Accueil").OLEObjects
If c.Object.GroupName = "Groupe1" Then
c.Object.Value = CheckGroupe1Visible.Value
End If
Next
End Sub

Private Sub CheckFeuil1_Click()
Sheets("Feuil1").Visible = CheckFeuil1.Value
End Sub

Private Sub CheckFeuil2_Click()
Sheets("Feuil2").Visible = CheckFeuil2.Value
End Sub

Private Sub CheckFeuil3_Click()
Sheets("Feuil3").Visible = CheckFeuil3.Value
End Sub

JB


Petit détail JB,
avec ton code, c'est génial car une fois la checkbox 1 scellée dans le
marbre, je peux checker les années à ma guise,
Pt prb qd même si mon utilisateur se trompe et décide de checker et
dechecker les années, cela fait apparaitre des onglets qui ne devraient pas...
Y a til un moyen de réinitialiser dans le cas ou une checkbox a déj à été
cochée?...
ou même réinitialiser le process de départ, celui ou tous les ongle ts
étaient visibles à l'ouverture du fichier?
Enorme merci
ed




Bonjour,

Code dans checkbox1 pour activer/désactiver checkbox2,checkbox3:

Private Sub CheckBox1_Click()
CheckBox2.Enabled = CheckBox1.Value
CheckBox3.Enabled = CheckBox1.Value
End Sub


bonjour,
J'ai créé 5 checkbox.
Ces 5 checkbox ont pour but de masquer certains onglets. Sur les ongl ets qui
restent, ils masquent certaines lignes.
Le déterminant de la checkbox_1 est un objet (toute années confon dues....)
Le déterminant des 4 autres: les années (hors objet).

Existe t il un moyen de hiérarchiser ces boxes pour un controle plu s efficace.
Car si je checke les boxes des années et qu'après je clique le pr emier
onglet, ma sélection est forcément erronée.
Merci de vos conseils.
ed