Discussion :

[toushusss]

Bonjour,
j'ai rentré ce code pour que selon si checkbox coché ou non une feuille reste visible ou non ( ça c'est bon ça fonctionne) et une ligne dans un tableau soit visible ou non ( la le code bug) Ligne A8:E8.
Quelqu'un pourrait il m'aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
Worksheets("GAZ").Visible = True
Else
Worksheets("GAZ").Visible = False
Sheets("Synthèse").Range("A8:E8").Visible = False
End If
End Sub

Merci

[amnorian]

et si tu inversais le problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
  Worksheets("GAZ").Visible = True
  Rows("1:8").EntireRow.Hidden = False
Else
  Worksheets("GAZ").Visible = False
  Rows("1:8").EntireRow.Hidden = True
End If
End Sub

[toushusss]

Merci pour l'aide. Mais je ne comprens pas bien ton code
Je l'ai adapté comme suit mais fonctionne toujours pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If CheckBox1.Value = True Then
  Worksheets("GAZ").Visible = True
Else
  Worksheets("GAZ").Visible = False
  Sheets("Synthèse").Rows("A8:E8").EntireRow.Hidden = False
End If

La ligne A8:E8 est sur la feuille synthése. Elle ne doit pas apparaitre si Checkbox1 n'est pas coché.

[amnorian]

les rows correspondent au ligne le hidden les masques la tels que tu le fait tu selectionne des range(des plages de cellule te que A1, A2, etc....)
ma solution masquait toutes les lignes (et donc ton tableau)

voila une autre solution qui modifie la couleur des informations de ton tableau en les mettant en blanc.
Attention si ton tableau à un cadre il apparaitra toujours.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
If CheckBox1.Value = True Then
  Worksheets("GAZ").Visible = True
  Sheets("Synthèse").Range("A2:E8").Font.ColorIndex = 0
Else
  Worksheets("GAZ").Visible = False
  Sheets("Synthèse").Range("A2:E8").Font.ColorIndex = 2
End If

[mercatog]

Ta CheckBox n'est pas sur la feuille GAZ au moins!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CheckBox1_Change()
 
Worksheets("GAZ").Visible = CheckBox1.Value
Worksheets("Synthèse").Rows("1:8").Hidden = Not CheckBox1.Value
End Sub

[toushusss]

Super merci pour votre aide à tous les 2.