Masquer colonne si date inférieure à date aujourd'hui

Bonjour,

J'utilise un tableau Excel avec une ligne date et une ligne production, la ligne dates et pour le mois courant (juillet 2018)

je souhaite masquer toutes les colonnes ayant une date supérieure à la date d'aujoud'hui

exemple: on est le 11/07/2018, je souhaite que les colonnes avec des dates supérieures au 11/07/2018 soient masquée

ci joint un fichier comme exemple

merci

Bonjour TraderAS

voici le code à insérer dans un module :

Option Explicit

Sub MASQUER_COLONNE()
Dim dercolonne As Long
Dim i%
'numéro de la dernière colonne utilisée
dercolonne = Cells(5, 16000).End(xlToLeft).Column
    For i = 1 To dercolonne
    If Cells(5, i) < Now() Then Columns(i).Hidden = True
    Next i
End Sub

Attention la colonne B sera masquée s'il n'y pas d'intitulé en cellule B5

et1000lio a écrit :

Bonjour TraderAS

voici le code à insérer dans un module :

Option Explicit

Sub MASQUER_COLONNE()
Dim dercolonne As Long
Dim i%
'numéro de la dernière colonne utilisée
dercolonne = Cells(5, 16000).End(xlToLeft).Column
    For i = 1 To dercolonne
    If Cells(5, i) < Now() Then Columns(i).Hidden = True
    Next i
End Sub

Attention la colonne B sera masquée s'il n'y pas d'intitulé en cellule B5

Bonjour et merci pour votre réponse,

j'ai appliqué le code VB que vous m'avez fourni sauf que je crois que ça fonctionne à l'inerse,

en effet, je veux masquer les cellules supérieures à la date d'aujourd'hui comme la date du 12/07/2017, le 13/07 etc.

merci

Ha ! dans le titre du poste il est mentionné Date Inférieure à date aujourd'hui....

Donc modification simple :

If Cells(5, i)  > Now() Then Columns(i).Hidden = True

> (supérieure à) Now() (ajourdhui())

et1000lio a écrit :

Ha ! dans le titre du poste il est mentionné Date Inférieure à date aujourd'hui....

Donc modification simple :

If Cells(5, i)  > Now() Then Columns(i).Hidden = True

> (supérieure à) Now() (ajourdhui())

encore merci