Bonjour chers tous,
j'essaie de creer un calendrier automatique avec pour donction de masquer que les jours ne figurant pas dans le mois. Par exemple pour le mois de fevrier, faudra masque les 29, 30 et 31. Voici mon code VBA sur lequel je bloque
j'essaie de creer un calendrier automatique avec pour donction de masquer que les jours ne figurant pas dans le mois. Par exemple pour le mois de fevrier, faudra masque les 29, 30 et 31. Voici mon code VBA sur lequel je bloque
VB:
Option Explicit
Sub Masquer_Jour()
Dim Num_Col As Long
For Num_Col = 30 To 32 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(6, Num_Col)) <> Feuil2.Range("k1").Value Then
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
Feuil1.Range("c11:aG50").ClearContents 'Supprime le contenu dans les cellules
End Sub