michel68100
XLDnaute Nouveau
Salut à tous
Voila j'ai fait un calendrier automatique vertical qui masque les lignes des mois en 30 pour ne pas afficher le 31, mais j'ai un soucis avec le code. Je vous joint le fichier
Sub Masquer_Jour()
Dim Num_Ro As Long
For Num_Ro = 34 To 36 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(6, Num_Ro)) <> Cells(1, 1) Then
Rows(Num_Ro).Hidden = True
Else
Rows(Num_Ro).Hidden = False
End If
Next
Range("C6:C36").ClearContents 'Supprime le contenu dans les cellules
End Sub
Voila j'ai fait un calendrier automatique vertical qui masque les lignes des mois en 30 pour ne pas afficher le 31, mais j'ai un soucis avec le code. Je vous joint le fichier
Sub Masquer_Jour()
Dim Num_Ro As Long
For Num_Ro = 34 To 36 ' Boucle sur les cellules des jours 29, 30 et 31
If Month(Cells(6, Num_Ro)) <> Cells(1, 1) Then
Rows(Num_Ro).Hidden = True
Else
Rows(Num_Ro).Hidden = False
End If
Next
Range("C6:C36").ClearContents 'Supprime le contenu dans les cellules
End Sub