XL 2013 (RESOLU) Double clic cellule afficher/Masquer des lignes

[chaelie2015]

Bonsoir Forum
Je souhaite afficher/Masquer des lignes (de 9 a 13) par un double clic cellule A8.
Merci

<Bon rétablissement à Gérard (alias Job75)>​

 

[patricktoulon]

Bonsoir
dans le module de la feuil1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$8" Then Rows("9:13").Hidden = Not Rows("9:13").Hidden: Target.Offset(, 1).Select
End Sub

 

[chaelie2015]

Bonsoir
dans le module de la feuil1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$8" Then Rows("9:13").Hidden = Not Rows("9:13").Hidden: Target.Offset(, 1).Select
End Sub

Bonsoir patricktoulon
C'est parfait.
bonne nuit