Macro lancée par sélection cellule

Le 30/11/2015 à 15:13

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....)

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...

11macro-double-clic.xlsm (14.31 Ko)

Le 30/11/2015 à 15:53

Bonjour,

si j'ai bien compris (ce qui n'est jamais certain )

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A4")) Is Nothing Then
Dim MVoir As Boolean
MVoir = IIf(Rows("5:10").EntireRow.Hidden, False, MVoir = False)
If MVoir Then
Rows("5:10").EntireRow.Hidden = MVoir
Else
Rows("5:10").EntireRow.Hidden = MVoir
End If
End If
End Sub

Le 30/11/2015 à 15:56

Je viens d'avoir une réponse par ailleurs la voici :

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 à tous!

Merci Patrick1957 c'est exactement ce qu'il me fallait!!!

merci!