bonjour quelqu'un pourrai m'aider a trouver un macro pour cacher les dates 29 30 et 31 pour le mois de février et le 31 pour les mois de 30 jours sur un calendrier automatique Excel merci
Bonjour Tonio, et bienvenu sur XLD,
Un essai en PJ avec :
VB:
Sub Zonecombinée1_QuandChangement(): Masque: End Sub
Sub Zonecombinée2_QuandChangement(): Masque: End Sub
Sub Masque()
On Error GoTo Fin
Application.ScreenUpdating = False
Datemax = Day([C4])
Select Case Datemax
Case 28: N = 121
Case 29: N = 125
Case 30: N = 129
Case 31: N = 133
End Select
Rows("9:133").EntireRow.Hidden = False
Rows(N & ":133").EntireRow.Hidden = True
Fin:
Application.ScreenUpdating = True
End Sub
Bonsoir,
Aucun contributeur n'aime cette phrase qui ne veut rien dire : "ca ne fonctionne pas"
Avre vous activé les macros ?
Y a t il un message d'erreur ?
Est ce le nombre de lignes masquées qui est faux ?
...
...
Car avant de livré j'avais testé :
en faite ca fonctionne si j'exécute mois par moi ce qui serait intéressent c'est que ca s'applique a tous les mois comme l'exemple
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
sauf que l'exemple est pour un calendrier horizontal
Rien compris, désolé.
Vous voulez masquer les lignes en fonction des choix fait pour le mois et pour l'année ?
C'est du moins ce qu'on peut en déduire de votre demande.
génial j'ai enfin réussi merci maintenait il me faudrait une macro pour pouvoir enregistres mois par mois exemple enregistrer des infos sur janvier et des infos différentes sur février etc.