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

Question

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 ;)

Configuration: Windows 7 / Chrome 46.0.2490.80

f894009 · Answer

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

f894009 · Answer

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

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

2 réponses

Discussions similaires

Newsletters