Calendrier automatique

Bonjour,

Pouvez-vous m'aidez sur mon fichier car j' n'arrive pas à automatiser le calendrier. J'ai bien trouver un code mais je n'arrive à adapter

merci d'avance

Bonjour,

Au lieu d'utiliser une macro, tu pourrais tout aussi bien obtenir le même résultat en utilisant les mises en forme conditionnelles...

Pour rester dans ton projet, modifie ainsi :

Sub Masquer_Jour()
Dim Num_Col As Long
Application.ScreenUpdating = False
   For Num_Col = 30 To 32 ' Boucle sur les cellules des jours 29, 30 et 31
      If Month(Cells(6, Num_Col)) > Month(Cells(6, 29)) Then
         Columns(Num_Col).Hidden = True
      Else
         Columns(Num_Col).Hidden = False
     End If
   Next
   Range("B7:AF30").ClearContents  'Supprime le contenu dans les cellules
End Sub

Bonne soirée

Bonsoir à tous,

Tout à fait d'accord avec cousinhb29, il est tout à fait possible d'obtenir un calendrier opérationnel sans VBA.

Cordialement.

Merci beaucoup