Discussion :

[beabianchini]

Bonjour,

J'ai une macro qui s'exécute lorsque je double clic sur une cellule en affichant des lignes.
Je souhaiterais la compléter, en lui disant que si je double clic sur cette même cellule alors que les lignes sont déjà afficher, il faudrait me les masquer...
Est-ce que quelqu'un pourrait m'aider?
voici le début du code (en fichier joint également à toutes fins utiles....)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Not Application.Intersect(Target, Range("A4")) Is Nothing Then
 
    'macro à mettre
Rows("4:10").Select
    Selection.EntireRow.Hidden = False
    Range("A5").Select
 
    End If
 
End Sub

Encore merci beaucoup...

[beabianchini]

Bonjour,

je viens d'avoir une réponse par ailleurs, la voici, à toutes fins utiles...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    If Not Application.Intersect(Target, Range("A4")) Is Nothing Then
 
    'macro à mettre
    Select Case Rows("5:10").EntireRow.Hidden
        Case True
            Rows("5:10").EntireRow.Hidden = False
        Case False
            Rows("5:10").EntireRow.Hidden = True
    End Select
    End If
 
End Sub

ENCORE MERCI