Masquer Colonnes /Liste déroulante -mois
Bonjour
J'ai essayé de créer une macro que me permettre masquer des colonnes avec une liste déroulante
Option Explicit
Private Sub Worksheet_Activate()
Columns("J:CC").EntireColumn.Hidden = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$4" Then
Select Case Target.Column
Case 1
If Target.Value = "JANVIER" Then
Range("P:CC").EntireColumn.Hidden = True
Range("J:O").EntireColumn.Hidden = False
End If
Case 2
If Target.Value = "FEVRIER" Then
Range("J:O").EntireColumn.Hidden = True
Range("V:CC").EntireColumn.Hidden = True
Columns("P:U").EntireColumn.Hidden = False
End If
Case 3
If Target.Value = "MARS" Then
Range("J:U").EntireColumn.Hidden = True
Range("AB:CC").EntireColumn.Hidden = True
Columns("V:AA").EntireColumn.Hidden = False
End If
Case 4
If Target.Value = "AVRIL" Then
Range("J:AA").EntireColumn.Hidden = True
Range("AH:CC").EntireColumn.Hidden = True
Columns("AB:AG").EntireColumn.Hidden = False
End If
Case 5
If Target.Value = "MAI" Then
Range("J:AG").EntireColumn.Hidden = True
Range("AN:CC").EntireColumn.Hidden = True
Columns("AH:AM").EntireColumn.Hidden = False
End If
Case 6
If Target.Value = "JUIN" Then
Range("J:AM").EntireColumn.Hidden = True
Range("AT:CC").EntireColumn.Hidden = True
Columns("AN:AS").EntireColumn.Hidden = False
End If
Case 7
If Target.Value = "JUILLET" Then
Range("J:AS").EntireColumn.Hidden = True
Range("AZ:CC").EntireColumn.Hidden = True
Columns("AT:AY").EntireColumn.Hidden = False
End If
Case 8
If Target.Value = "AOÛT" Then
Range("J:AY").EntireColumn.Hidden = True
Range("BD:CC").EntireColumn.Hidden = True
Columns("AZ:BE").EntireColumn.Hidden = False
End If
Case 9
If Target.Value = "SEPTEMBRE" Then
Range("J:BE").EntireColumn.Hidden = True
Range("BL:CC").EntireColumn.Hidden = True
Columns("BF:BK").EntireColumn.Hidden = False
End If
Case 10
If Target.Value = "OCTOBRE" Then
Range("J:BK").EntireColumn.Hidden = True
Range("BR:CC").EntireColumn.Hidden = False
Columns("BL:BQ").EntireColumn.Hidden = False
End If
Case 11
If Target.Value = "NOVEMBRE" Then
Range("J:BQ").EntireColumn.Hidden = True
Range("BX:CC").EntireColumn.Hidden = True
Columns("BR:BW").EntireColumn.Hidden = False
End If
Case 12
If Target.Value = "DECEMBRE" Then
Range("J:BW").EntireColumn.Hidden = True
Columns("BX:CC").EntireColumn.Hidden = False
End If
End Select
End Sub
Bonjour,
Pour aller directement à la solution ...
Bonjour et bienvenue,
Tu aurais pu prendre le temps de lire la chartre du forum.
Regarde si ma réponse correspond à tes attentes.
Indique dans ton profil la version Excel utilisée.
Cdlt.