Masquer colonnes selon dates

Bonjour,

Voici ci-joint un tableau avec sur la ligne 2 à partir de la colonne D des dates

Je voudrais à partir d'un bouton de commande ou d'une zone de texte appeler une procédure qui masquent les colonnes inférieurs à la semaine en cours + la colonne C

Par exemple, nous sommes le mardi 29 janvier et je voudrais masquer toutes les colonnes dont les dates sont inférieurs au lundi 28 janvier et la colonne C

Pouvez-vous m'aider svp ?

je vous remercie

Cordialemen

Bonjour,

A tester

Bonjour

sylvainpyc a écrit :

Voici ci-joint un tableau avec ...

Tu as dû faire une mauvaise manip...

Bye !

Bonjour,

J'ai ce message d'erreur : "erreur de compilation, projet ou bibliothèque introuvable"

Sub Masque()
  Dim Dc%, i%, Col%
  Dc = Cells(2, Columns.Count).End(xlToLeft).Column
  For i = 4 To Dc
    If Application.WorksheetFunction.IsoWeekNum(Cells(2, i)) = Application.WorksheetFunction.IsoWeekNum([color=#FF0000]Date[/color]) Then
      Col = i - 1
      Exit For
    End If
  Next i
  Range(Columns(3), Columns(Col)).EntireColumn.Hidden = True
End Sub

Ou est mon erreur svp ?

Je vous remercie

Cordialement

Bonjour,

Que fait tes [color... dans cette ligne

Application.WorksheetFunction.IsoWeekNum([color=#FF0000]Date[/color]) Then

c'est

Application.WorksheetFunction.IsoWeekNum(Date) Then

En rouge c'était pour montrer ou était l'erreur

J'ai mis mon code dans un module et j'ai cette erreur sur "Date" ?

Re,

Bizarre

Remplace Date par Now

Ca marche

Merci beaucoup

Bonne journée