Masquer une ligne avec checkbox ActiveX

Bonjour à tous,

Je cherche à masquer des lignes avec une Checkbox activeX (pour quelle disparaisse également avec les lignes masquées).

Voila le bout de code que j'ai écrit mais il ne fonctionne pas.

Code:

---

1 2 3 4 5

If CheckBox1.Value = True Then Rows("11:15").EntireRow.Hidden = False Else Rows("11:15").EntireRow.Hidden = True End If

---

Quelqu'un aurait une idée ?

Cdl

Citation:

---

Envoyé par Cabrinha

---

Dans le module de votre onglet, vous devriez avoir ce code :

Code:

---

1 2 3 4 5 6 7 8

Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Rows("11:15").EntireRow.Hidden = False Else Rows("11:15").EntireRow.Hidden = True End If End Sub

---

Pour faire disparaître votre CheckBox, il vous faut utiliser la propriété Visible

Code:

---

1 2	CheckBox1.Visible = False ' Comment faîtes vous pour faire réapparaître le CheckBox ?

---

Mais comment faîtes-vous pour le faire réapparaître ?

Cordialement.

Merci, je vais essayer ça de suite.

Je fais une macro pour faire apparaître toutes les lignes masquées avec les checkboxes.

Cdl.

Citation:

---

Envoyé par Cabrinha

---

OK mais vous n'avez pas répondu à la question :

Citation:

---

Mais comment faîtes-vous pour le faire réapparaître ?

---

Citation:

---

Envoyé par Eric KERGRESSE

Dans le module de votre onglet, vous devriez avoir ce code :

Code:

---

1 2 3 4 5 6 7 8

Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Rows("11:15").EntireRow.Hidden = False Else Rows("11:15").EntireRow.Hidden = True End If End Sub

---

Pour faire disparaître votre CheckBox, il vous faut utiliser la propriété Visible

Code:

---

1 2	CheckBox1.Visible = False ' Comment faîtes vous pour faire réapparaître le CheckBox ?

---

Mais comment faîtes-vous pour le faire réapparaître ?

Cordialement.

---

J'ai un soucis, avec ce code, lorsque je veux masquer, une erreur 1004 apparait. D'ou cela provient ?

Cdl

Citation:

---

Envoyé par Cabrinha

---

Regardez l'exemple dans le fichier joint :

Pièce jointe 232061

Cordialement.

Ca devrais marcher avec ce code.

pour faire réapparaitre le checkbox

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click()   Rows("11:15").EntireRow.Hidden = False CheckBox1 = True CheckBox1.Visible = True End Sub

---

Cdl

Le code pour masquer les lignes ne fonctionne pas, je ne comprend pas pourquoi.

Aurais tu une idée ?