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

Résolu/Fermé
nihan - 3 nov. 2015 à 10:51
 nihan - 3 nov. 2015 à 11:12
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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 nov. 2015 à 10:58
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 ??????
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 nov. 2015 à 11:07
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
0
Merciiiii, ça marche ;)
0