XL 2016 Afficher des Lignes en fonction d'une checkbox

[grecooll]

Bonjour à tous et à toutes,
J'aimerai savoir comment afficher des lignes en fonction de la coche d'une checkbox.
Dans mon exemple (simple) ci-joint, j'aimerai que les lignes 3;4;5 s'affichent quand ma checkbox est coché et qu'elle se masque quand la checkbox ne l'est pas.
J'ai bien essayé d'adapter des lignes de code VBA mais ce fut sans succès (je ne suis pas forcément un expert).
Merci d'avance pour vos réponses,
Bien Cordialement.

 

[sylvanu]

Bonjour Grecooll,
Simplement avec :

Sub Caseàcocher1_Clic()
    If Rows("3:5").Hidden = False Then Rows("3:5").Hidden = True Else Rows("3:5").Hidden = False
End Sub

 

[job75]

Bonjour grecoll, sylvanu,

La macro affectée à la case à cocher :

Sub Afficher_Masquer()
With Feuil1 'CodeName à adapter
    .Rows("3:5").Hidden = .Shapes("Case à cocher 1").ControlFormat.Value <> 1
End With
End Sub

A+

 

[Phil69970]

Bonjour @grecooll , Sylvain
Edit : Bonjour Job

Une autre manière de faire.....

@Phil69970

 

[job75]

Fichier (2) avec modification du texte de la case à cocher :

Sub Afficher_Masquer()
With Feuil1.Shapes("Case à cocher 1") 'à adapter
    .Parent.Rows("3:5").Hidden = .ControlFormat.Value <> 1
    .TextFrame.Characters.Text = "Lignes 3 à 5 " & IIf(.ControlFormat.Value = 1, "affichées", "masquées")
End With
End Sub

Bonjour Phil69970.

 

[grecooll]

Bonjour grecoll, sylvanu,

La macro affectée à la case à cocher :

Sub Afficher_Masquer()
With Feuil1 'CodeName à adapter
    .Rows("3:5").Hidden = .Shapes("Case à cocher 1").ControlFormat.Value <> 1
End With
End Sub

A+

Bonjour,
Ca marche nickel merci beaucoup

 

[grecooll]

Bonjour @grecooll , Sylvain
Edit : Bonjour Job

Une autre manière de faire.....

@Phil69970

Merci Phil69970