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

chaelie2015 · 7 Août 2016

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 · 7 Août 2016

Salut Charlie,

Quelque chose comme ça ?

VB:

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 · 7 Août 2016

Bonjour, chaelie2015, Hieu, le Forum,

Une autre proposition ci-après.

VB:

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 · 7 Août 2016

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 · 7 Août 2016

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

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

chaelie2015

XLDnaute Accro

Pièces jointes

Hieu

XLDnaute Impliqué

Pièces jointes

DoubleZero

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Discussions similaires