Question Réponse
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:55Essaie 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
Posté le