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

Résolu

nihan -
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 ;)

A voir également:

Masquer des colonnes en fonction de la date d'aujourd'hui
Fonction si et - Guide
Comment faire des colonnes sur word - Guide
Pas de signal tv aujourd'hui - Guide
Formule moyenne excel plusieurs colonnes - Guide
Classer par ordre alphabétique excel plusieurs colonnes - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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 ??????

Réponse 2 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

nihan

Merciiiii, ça marche ;)

Discussions similaires

je cherche la date et le lieu de naissance d une personne

ordre alphabetique sous word

Votre réponse

Discussions similaires