XL 2021 Afficher et masquer des colonnes

Sassybel

XLDnaute Nouveau
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
 

Cousinhub

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

VB:
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?
 

Discussions similaires

Réponses
12
Affichages
320

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
313 271
Messages
2 096 724
Membres
106 720
dernier inscrit
Alain EDZOA