Microsoft 365 macro pour cacher dates sur calendrier excel

[Tonio59160]

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

 

[sylvanu]

Bonjour Tonio, et bienvenu sur XLD,
Un essai en PJ avec :

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

 

[Tonio59160]

Bonjour ca ne fonctionne pas

 

[sylvanu]

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é :

 

[Tonio59160]

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

 

[Tonio59160]

j'ai copier la formule j'ai créer un macro mais j'ai du oublie une étape

 

[sylvanu]

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.

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

Donc en quoi ma solution ne va pas ?

Soyez plus précis sur le contexte où l'action ne s'effectue pas.

 

[Tonio59160]

si la solution va très je n'arrive pas a l'installer je fait visual basic ensuite je fait exécuter macro mais j'ai du oublier une étape

 

[Jean-Eric]

Bonjour,
Une proposition formule pour les dates :

=DATE(D2 + 2022; D1; 0)
+ ARRONDI.SUP(SEQUENCE(JOUR(FIN.MOIS(DATE(D2 + 2022; D1; 1); 0)) * 4; ; 1/4; 1/4); 0)

Cdlt.

 

[Tonio59160]

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.