jedi0307
XLDnaute Nouveau
Bonjour à tous,
Je cherche une macro pour faire disparaître automatiquement les dates de fin de mois pour les mois de février ainsi que les mois n'ayant que 30 jours.
J'ai essayé celle-ci, mais elle est en erreur :
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)) >= Cells(1, 1) Then
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
Range("B6:AF13").ClearContents 'Supprime le contenu dans les cellules
End Sub
Mon calendrier possède un menu déroulant pour les mois et les années à venir, j'y ai inséré les week-end et les jours férié avec affichage automatique en couleur.
Mon seul soucis restant est vraiment dû à l'affichage des jours de fin de mois.
Je vous joint mon fichier Excel.
Merci pour votre aide.
Je cherche une macro pour faire disparaître automatiquement les dates de fin de mois pour les mois de février ainsi que les mois n'ayant que 30 jours.
J'ai essayé celle-ci, mais elle est en erreur :
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)) >= Cells(1, 1) Then
Columns(Num_Col).Hidden = True
Else
Columns(Num_Col).Hidden = False
End If
Next
Range("B6:AF13").ClearContents 'Supprime le contenu dans les cellules
End Sub
Mon calendrier possède un menu déroulant pour les mois et les années à venir, j'y ai inséré les week-end et les jours férié avec affichage automatique en couleur.
Mon seul soucis restant est vraiment dû à l'affichage des jours de fin de mois.
Je vous joint mon fichier Excel.
Merci pour votre aide.