Microsoft 365 macro pour cacher dates sur calendrier excel

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Octobre 2023

• #2

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

 

Pièces jointes

• Classeur 3 calendrier.xlsm

  32.6 KB · Affichages: 7

Vote positif 0 Vote négatif

T

Tonio59160

XLDnaute Nouveau

• 18 Octobre 2023

• #3

Bonjour ca ne fonctionne pas

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Octobre 2023

• #4

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

 

Vote positif 0 Vote négatif

T

Tonio59160

XLDnaute Nouveau

• 18 Octobre 2023

• #5

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

 

Vote positif 0 Vote négatif

T

Tonio59160

XLDnaute Nouveau

• 18 Octobre 2023

• #6

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 18 Octobre 2023

• #7

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.

Tonio59160 à dit:

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

Cliquez pour agrandir...

Donc en quoi ma solution ne va pas ?

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

 

Vote positif 0 Vote négatif

T

Tonio59160

XLDnaute Nouveau

• 18 Octobre 2023

• #8

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

 

Vote positif 0 Vote négatif

Jean-Eric

XLDnaute Occasionnel

• 18 Octobre 2023

• #9

Bonjour,
Une proposition formule pour les dates :

VB:

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

Cdlt.

 

Pièces jointes

• Classeur 3 calendrier.xlsx

  30.7 KB · Affichages: 3

Vote positif 0 Vote négatif

T

Tonio59160

XLDnaute Nouveau

• 18 Octobre 2023

• #10

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.

 

Vote positif 0 Vote négatif