Afficher Masquer Onglets Double Click cellule A2

Bonsoir le forum

Dans le même état d'esprit que mon sujet de ce matin

Afficher Masquer les onglets en plus des lignes vides et des colonnes dans cette macro

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 RegularisationsExplications
          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,E41:E45,E47:E60,E70:E74,E76:E89,E99:E103,E105:E118")
      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

Bonsoir

Quelle est votre question ?

Cordialement

Bonsoir Dan

Faire afficher tous les onglets dans 1ère macro

Double click cellule A2

Merci à toi

Cordialement

Bonsoir le forum

C'est bon

Bonne fin de soirée à tous

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:A8]) Is Nothing Then
            Call RegularisationsExplications
          End If
    If Target.Row = 2 And Target.Column = 1 And Target.Count = 1 Then
        Application.ScreenUpdating = 0
        For Each sh In Worksheets
            sh.Visible = 1
        Next sh
    End If
    End If
End Sub