VBA : Masquer les colonnes des mois précédents le mois en cours

Bonjour,

J'aimerai masquer les colonnes des mois précédents le mois en cours.

En VBA.

En vous remerciant.

bonjour Koloco,

Sub Masquer()
     With Sheets("feuil1").Range("C2").Resize(, 20)     ' partir de C2 20 colonnes
          .EntireColumn.Hidden = False     'ne pas masquer
          i = Application.Match(CDbl(Date), .Resize(, 1000).Value2, 1)     'chercher aujourd'hui
          If IsNumeric(i) Then
               If i > 1 Then .Resize(, i - 1).EntireColumn.Hidden = True     'nombre de colonnes à masquer
          End If
     End With
End Sub

Bonjour,

Votre macro fonctionne et répond parfaitement à ma demande.

Merci à vous pour cette solution et la rapidité de votre réponse.

Cordialement.