VBA calendrier mois de fevrier

Bonjour,

J'ai créé un calendrier avec affichage des week-end et jours fériés.

Cependant pour le mois de février j'ai toujours le 29, 30 et 31 qui s'affiche.

Pourriez vous m'indiquer l'erreur ci-dessous?

Merci.

Sub Masquer_Jour()

Dim Num_Li As Long

For Num_Li = 37 To 39 ' Boucle sur les cellules des jours 29, 30 et 31

If Month(Cells(6, Num_Li)) >= Cells(1, 1) Then

Columns(Num_Li).Hidden = True

Else

Columns(Num_Li).Hidden = False

End If

Next

Range("B9:H39").ClearContents 'Supprime le contenu dans les cellules

End Sub

Bonjour

En général on traite le PB des 29 et 30 des mois n'ayant pas 312 jour par une MFC qui teste si le mois de ligne est différent du 1er (E2 dans ton cas)

Bonjour,

Pourquoi vouloir le faire en macro alors qu'une simple formule suffit

Slts

Bonjour

3 erreurs:

tu boucle sur des lignes et tu masques des colonnes

cells(ligne, colonne) et non l'inverse

cells(1,1) correspond à la cellule A1 dans ton cas c'est cells(1,3)

ci dessous ta macro modifiée

Sub Masquer_Jour()
  Dim Num_Li As Byte
  For Num_Li = 37 To 39     ' Boucle sur les cellules des jours 29, 30 et 31
     Rows(Num_Li).Hidden = False
     If Month(Cells(Num_Li, 1)) > Cells(1, 3) Then
      Rows(Num_Li).Hidden = True
     End If
   Next
   Range("B9:H39").ClearContents  'Supprime le contenu dans les cellules
End Sub

A+ François

Merci à tous pour votre aide :)