[XL-2013] Macros VBA - Affichage de colonnes et de lignes

Bonjour,

Tu pourrais essayer quelque chose comme ceci.
À mettre dans le code de ta feuille

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim I As Long, nbColonnes As Long
 
    If Target.Address(False, False) = "C2" Then
 
    ActiveSheet.Range(Cells(1, 16), Cells(1, 100)).EntireColumn.Hidden = False
    nbColonnes = Cells(1, 100).End(xlToLeft).Column
 
    For I = 16 To nbColonnes
        If Cells(1, I) = Target Then
            If I > 16 Then
                Range(Cells(1, 16), Cells(1, I - 1)).EntireColumn.Hidden = True
                Exit For
            Else
                Exit For
            End If
        End If
    Next
 
    For I = nbColonnes To 16 Step -1
        If Cells(1, I) = Target Then
            If I <= nbColonnes Then
                Range(Cells(1, I + 1), Cells(1, nbColonnes)).EntireColumn.Hidden = True
                Exit For
            End If
        End If
    Next
 
    ElseIf Target.Address(False, False) = "C4" Then
        ActiveSheet.AutoFilterMode = False
        Rows(4).AutoFilter Field:=2, Criteria1:=Target
    End If
End Sub