Afficher Masquer Lignes et Colonnes par Double Click

Bonjour le forum

Dans la macro ci dessous il y a quelque chose que je ne vois pas

Je veux ouvrir les lignes et les colonnes en Double Click (cellule A2) en même temps

Or là ça ouvre les lignes et ferme les colonnes

Cordialement

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
      If Not Target.Comment Is Nothing Then
        If Not Intersect(Target, [A2]) Is Nothing Then
'            Call AfficherMasquerLignes
'        If Not Intersect(Target, [A2]) Is Nothing Then
          Call RegularisationsExplications
          End If
        'End If
        End If
        Cancel = True
End Sub

Macro => RegularisationsExplications

Sub RegularisationsExplications()
  Application.ScreenUpdating = False
  With ActiveSheet
    .Unprotect
    If .Columns("G:I").Hidden = True Then
      .Columns("G:I").Hidden = False
    Else: .Columns("G:I").Hidden = True
    End If
    For Each Cel In .Range("E12:E16,E18:E31,E42:E46,E48:E61,E72:E76,E78:E91,E102:E106,E108:E121")
      If Cel = "" Then
        Cel.EntireRow.Hidden = Not Cel.EntireRow.Hidden
      End If
    Next Cel
    .Range("A1").Select
    .Protect
  End With
  Application.ScreenUpdating = False
End Sub

Bonjour,

Est-ce-que tu as trouvé tout seul la solution à ton problème ...?

Bonsoir James007

Oui tout seul c'était tout C$N!!!

Merci à toi

Bonne fin de soirée

Cordialement

Voilà une bonne chose de faite ...

Re James007

Comme tu dis

Il suffisait de masquer les colonnes manuellement dans un premier temps et après ça roule

Merci à toi

Bonne fin de soirée

Cordialement