masquer colonnes

[icetea]

Bonjour à tous,

Voici mon problème, je souhiat avec un bouton de commande afficher uniquement la colonne du mois en cours et masquer les autres.
Un petit exemple pour mieux comprendre.

Vous remerciant par avance.

Icetea

 

[ERIC S]

Re : masquer colonnes

Bonjour

For col = 4 To 10
    Cells(3, col).EntireColumn.Hidden = True
    If Year(Cells(3, col).Value) = Year(Date) And Month(Cells(3, col).Value) = Month(Date) Then
        Cells(3, col).EntireColumn.Hidden = False
    End If
Next

 

[icetea]

Re : masquer colonnes

Merci Eric, c'est exactement ça....