XL 2013 (RESOLU) Afficher / Masquer des lignes et des colonnes selon les valeurs de deux cellules

[chaelie2015]

Bonsoir Forum
Dans la feuille 'CEO' j'ai un tableau (E7:BA7) et deux cellule D2 (pour les lignes) et D4 (pour les colonne) je souhaite masquer ou afficher les lignes et les colonnes en fonction des chiffres dans les cellules D2 et D4.
Merci

 

[sylvanu]

Bonsoir Chaelie,
Un essai en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    If Not Intersect(Target, [D2]) Is Nothing Then
         NumLig = Target + 7
         Rows("7:60").EntireRow.Hidden = False
         Rows(NumLig & ":60").EntireRow.Hidden = True
    ElseIf Not Intersect(Target, [D4]) Is Nothing Then
         NumCol = Target + 4
         Columns("D:BA").EntireColumn.Hidden = False
         Range(Cells(1, NumCol), Cells(1, 54)).EntireColumn.Hidden = True
    End If
Fin:
End Sub

 

[chaelie2015]

Bonsoir Chaelie,
Un essai en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    If Not Intersect(Target, [D2]) Is Nothing Then
         NumLig = Target + 7
         Rows("7:60").EntireRow.Hidden = False
         Rows(NumLig & ":60").EntireRow.Hidden = True
    ElseIf Not Intersect(Target, [D4]) Is Nothing Then
         NumCol = Target + 4
         Columns("D:BA").EntireColumn.Hidden = False
         Range(Cells(1, NumCol), Cells(1, 54)).EntireColumn.Hidden = True
    End If
Fin:
End Sub

Bonsoir sylvanu
C'est parfait, merci
A+