Bouton action case à cocher

[Ellen25]

Bonjour,

Sur ma feuille nommée « Paramètres » j’ai une cache à cocher
Je souhaite que lorsque je coche cette case , les lignes 25 à 31 de ma feuille s’affiche
et dans l’autre sens quand c’est décocher, elles se masquent

J’ai écrit ce code et affecté cette macro (dans « module 1 ») à la case à cocher n°5

Sub affiche_lait_achete()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(« Paramètres »)

If CheckBox5.Value = True Then
    ws.Rows("25:31").Hidden = False
Else
     ws.Rows("25:31").Hidden = True
End If

End Sub

Lorsque je lance la macro, j’ai une erreur d’exécution 424 Objet requis

Je ne vois pas où est le problème
auriez vous une idée ?

merci d’avance

Ellen25

[taz067]

hello
si ce sont toujours ces lignes pourquoi ne pas utiliser la méthode PLAN qui ne nécessite aucune programmation…
avant masquage

apres masquage

[Ellen25]

Taz067

l’outil que je construit est destiné à des gens qui savent tous juste saisir des données dans un fichier excel alors masquer/démasquer des lignes ou colonnes…comment dire
de plus il faut que je duplique l’action sur 50 cases …

[Ellen25]

J’ai trouvé le problème , je n’avais pas déclarer la cellule du format de contrôle et j’ai du adapter le code comme ceci
Sub affiche_lait_achete()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(« Paramètres »)

If Range("C11").Value = True Then
    ws.Rows("27:33").Hidden = False
Else
     ws.Rows("27:33").Hidden = True
End If

End Sub