Masquer des colonnes en fonction de la date d'aujourd'hui

0

Bonjour,

Je voudrais masquer automatiquement (une fois j'ouvre mon fichier excel) les colonnes quand la date des cellules de la ligne 6 est inférieure à la date d'aujourd'hui.

Alors pour le faire j'ai essayé ce code mais bon, ça n'a pas l'air de trop marcher.

Sub masquercol()
	For i = 8 To 1000 Step 1
		If Cells(6, "column") < Date Then Cells(6, "column").EntireColumn.Hidden = True
    Next i
End Sub

Merci pour vos réponses ;)

Posté le 3 novembre 2015, 10:55
par nihan
Répondre
3

Essaie avec ça, ça marche chez moi (à placer dans ThisWorkbook dans l'éditeur de macro VBA) :

Private Sub Workbook_Open()
    Set sh = ActiveSheet
    For Each col In sh.Columns
        d = sh.Cells(6, col.Column).Value
        n = Now()
        If IsDate(d) Then
            If Not (Year(d) = Year(n) And Month(d) = Month(n) And Day(d) = Day(n)) Then
                sh.Cells(6, col.Column).EntireColumn.Hidden = True
            End If
        End If
    Next col
End Sub
Vince Posté le 4 novembre 2015, 15:46
par Vince

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :