Masquer colonnes

Bonjour,

Je voudrais masquer les colonnes des semaines précédentes à la semaine en cours

J'ai un code qui fonctionne bien avec la feuille "plannings pour educs" :

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

J'ai essayé de modifier ce code pour la feuille 'stats repas' mais je n'y arrive pas

Sub Masque1()
  Dim Dc%, i%, Col%
  Dc = Cells(55, Columns.Count).End(xlToLeft).Column
  Cells.EntireColumn.Hidden = False
  For i = 4 To Dc
    If Application.WorksheetFunction.IsoWeekNum(Cells(2, i)) = Application.WorksheetFunction.IsoWeekNum(Now) Then
      Col = i - 1
      Exit For
    End If
  Next i
  Range(Columns(3), Columns(Col)).EntireColumn.Hidden = True
End Sub

Voici 2 fichiers

car les 2 feuilles sont trop volumineuses sur un fichier pour etre envoyées.

Pouvez-vous m'aider svp ?

Je vous remercie

Cordialement

Bonjour,

Un essai ...

Sub Masque1()
  Dim Dc%, i%, Col%
  Dc = Cells(55, Columns.Count).End(xlToLeft).Column  ' 55 est la bonne ligne
  Cells.EntireColumn.Hidden = False
  For i = 5 To Dc                                     ' colonne 5 est la première date
    If Application.WorksheetFunction.IsoWeekNum(Cells(55, i)) = Application.WorksheetFunction.IsoWeekNum(Now) Then
      Col = i - 1
      Exit For
    End If
  Next i
  Range(Columns(3), Columns(Col)).EntireColumn.Hidden = True
End Sub

ric

C'est parfait

Il y a la colonna A qui s'affiche, je voudrais svp qu"elle soit aussi masquée

C'est possible ?

Merci beaucoup de votre aide

Bonjour,

Juste avant End Sub , ajoute Columns(1).EntireColumn.Hidden = True

ric

Merci beaucoup

J'aurais du trouver seul, désolé du dérangement

bonne soirée