XL 2021 Afficher et masquer des colonnes

[Sassybel]

Bonjour à tous,

Sur un fil de discussion de ce forum, j'ai trouvé le code ci-dessous pour afficher/masquer des colonnes selon un filtre mais je ne trouve pas comment l'adapter pour afficher systématiquement les 5 premières colonnes. Un grand merci pour votre aide et ce forum pleins de ressources.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Mois = CDate("1/" & [A2])
If Not Target.Address = "$A$2" Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
For Each c In Rows(3).SpecialCells(xlCellTypeConstants, 2)
Select Case CDate("1/" & c)
Case Is = Mois
c.EntireColumn.Hidden = False
Case Else
c.EntireColumn.Hidden = True
End Select
Next
End Sub


Je

 

[job75]

Bonsoir Sassybel,

Sur un fil de discussion de ce forum, j'ai trouvé le code ci-dessous

Donnez le lien, au moins là il y aura un fichier.

A+

 

[Cousinhub]

Bonsoir,
Avec le peu d'éléments....

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Mois = CDate("1/" & [A2])
If Not Target.Address = "$A$2" Then Exit Sub
Application.ScreenUpdating = False
On Error Resume Next
For Each c In Rows(3).SpecialCells(xlCellTypeConstants, 2)
    If c.Column > 5 Then
        Select Case CDate("1/" & c)
            Case Is = Mois
                c.EntireColumn.Hidden = False
            Case Else
                c.EntireColumn.Hidden = True
        End Select
    End If
Next
End Sub

Peut-être?

 

[job75]

Bonsoir Cousinhub,

J'ai trouvé le fil :

https://excel-downloads.com/threads...lonnes-seulement-mois.20042125/#post-20302918

Maus le fichier ne permet pas vraiment de savoir quelles sont les 5 premières colonnes.

A+