(RESOLU) Affichage et masquage des lignes par clic sur cellule

[chaelie2015]

Bonjour Forum
Je souhaite afficher ou masquer les lignes lorsque je clic sur la cellule

Exemple :

si je clic sur la cellule A4 alors masquer les lignes 5et6

si je clic sur la cellule A7 alors masquer les lignes 8 au 14

si je clic sur la cellule A15 alors masquer les lignes 16 au 18

si je clic sur la cellule A19 alors masquer les lignes 20 au 21

Salutations

 

[Hieu]

Salut Charlie,

Quelque chose comme ça ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target
    Case Range("a4")
        Rows("5:6").Hidden = Not (Rows("5:6").Hidden)
    Case Range("a7")
        Rows("8:14").Hidden = Not (Rows("8:14").Hidden)
    Case Range("a15")
        Rows("16:18").Hidden = Not (Rows("16:18").Hidden)
    Case Range("a19")
        Rows("20:21").Hidden = Not (Rows("20:21").Hidden)
End Select
End Sub

 

[DoubleZero]

Bonjour, chaelie2015, Hieu, le Forum,

Une autre proposition ci-après.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
    Cancel = True
    Select Case c.Address
    Case "$A$4": Rows("5:6").EntireRow.Hidden = Not Rows("5:6").EntireRow.Hidden
    Case "$A$7": Rows("8:14").EntireRow.Hidden = Not Rows("8:14").EntireRow.Hidden
    Case "$A$15": Rows("16:18").EntireRow.Hidden = Not Rows("16:18").EntireRow.Hidden
    Case "$A$19": Rows("20:21").EntireRow.Hidden = Not Rows("20:21").EntireRow.Hidden
    End Select
End Sub

A bientôt

 

[chaelie2015]

Bonjour HIEU
Merci pour la réponse ça fonctionne mais j'ai un bug si je clic dans autre cellule
"Erreur d’exécution 13
Incompatibilité de type"
Salutations

 

[chaelie2015]

Bonjour 00
MERCI pour la réponse( désolé tu étais tro très rapide)
souci RÉSOLU
A+