Probleme avec fonction visible

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:

---

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

et si tu inversais le problème

Code:

---

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

---

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

Code:

---

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é.

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:

---

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

---

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

Code:

---

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

---

Super merci pour votre aide à tous les 2.:ccool: