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

sylvanu à dit:

Bonsoir Chaelie,
Un essai en PJ avec :

VB:

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

Cliquez pour agrandir...