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

chaelie2015 · 28 Octobre 2022

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 · 29 Octobre 2022

Bonsoir
dans le module de la feuil1

VB:

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

patricktoulon · 29 Octobre 2022

Bonsoir
dans le module de la feuil1

VB:

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 · 29 Octobre 2022

patricktoulon à dit:

Bonsoir
dans le module de la feuil1

VB:

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

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

chaelie2015

XLDnaute Accro

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

Pièces jointes

patricktoulon

patricktoulon

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires

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

chaelie2015

XLDnaute Accro

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

Pièces jointes

patricktoulon

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires

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