Discussion :

[Cabrinha]

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 :

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

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

[Invité]

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

Code :

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

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 :

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

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.

[Cabrinha]

Merci, je vais essayer ça de suite.

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

Cdl.

[Invité]

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

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

[Cabrinha]

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

Code :

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

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 :

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

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

[Invité]

Regardez l'exemple dans le fichier joint :

Pièce jointe 232061

Cordialement.

[Cabrinha]

Ca devrais marcher avec ce code.

pour faire réapparaitre le checkbox

Code :

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

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 ?