Masquer des colonnes en fonction de la date d'aujourd'hui [Résolu/Fermé]

Signaler
-
 nihan -
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érieur à la date d'aujourd'hui.
alors pour le faire j'ai essayer ce code mais bon, ça n'a pas l'air de trop marché.
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 pr vos réponses ;)

2 réponses

Messages postés
15271
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 août 2020
1 326
Bonjour,

Z'etes sur que ce soit les colonnes que vous voulez masquer et que vient faire la boucle for .... vu que vous n'utilisez pas la variable i ??????
Messages postés
15271
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 août 2020
1 326
Re,
Doit etre ceci que vous cherchez: masque/affiche les colonnes fonction de la date en partant de la colonne H a .....
Sub test()
    Dim i As Integer
    For i = 8 To 1000
        If Cells(6, i) < Date Then
            Cells(6, i).EntireColumn.Hidden = True
        Else
            Cells(6, i).EntireColumn.Hidden = False
        End If
    Next i
End Sub
Merciiiii, ça marche ;)