Masquer lignes auto suivent date

Bonjour,

J'ai créé un planning qui sert sur plusieurs sociétés avec plus de 60 employés.

Ce planning est automatisé pour chaque changement de mois.

Je voudrais pouvoir masquer, et non supprimer, les premières ligne (de la 12 à la 14) quand les dates sont antérieures au 29.

Je dis masquer car des calculs se font automatiquement en prenant ses lignes dans les calculs.

Et si cette commande pouvait être automatique pour toutes les feuilles du classeur ce serait parfait.

J'ai essayé plusieurs macro mais honnêtement mon niveau est 0, ça me masqué toutes les dates jusqu'à la ligne 14.

Merci de votre aide ^précieuse.

Bonjour,

Un test, l'appui sur le bouton en feuille "A" masque les jours qui ne correspondent pas au mois

Bonsoir,

une proposition de simplification du code de M12 :

Sub Masque()
    Dim Ws As Worksheet
    Application.ScreenUpdating = False
    For Each Ws In Worksheets
        If Len(Ws.Name) = 1 Then Ws.Rows("12:14").EntireRow.Hidden = True
    Next Ws
End Sub

@ bientôt

LouReeD

Pour les 2 solutions proposées, le problème est que cela masque tous les jours du mois précédent.

Moi il faut que j'ai les jours 29, 30 et 31.

Je dois juste masquer les jours précédents le 29 (28,27,26...)du mois précédent, s'il y en a et que ceci s'applique quand je change de mois dans le menu déroulant.

Bonjour,

Teste ceci

Bonsoir à vous deux !

dans le même esprits que le premier code avec ce que je n'avais pas compris...

Sub Masque()
    Dim Ws As Worksheet, I
    Application.ScreenUpdating = False
    For Each Ws In Worksheets
        If Len(Ws.Name) = 1 Then
            For I = 12 To 14
                If Day(Ws.Cells(I, 3).Value) < 29 Then Ws.Rows(I).EntireRow.Hidden = True
            Next I
        End If
    Next Ws
End Sub

@ bientôt

LouReeD

SUPER

Cela fonctionne très bien

Merci beaucoup!!!

Bonjour et merci pour votre retour !

@ bientôt

LouReeD

Bonjour,

Après avoir copié cette macro sur mon tableau réel, ce dernier ne fonctionne pas alors que sur le modèle que je vous avais joint, il fonctionne très bien.

La seule différence entre les 2 sont les noms de employés.

Pouvez-vous venir à mon aide.

Merci d'avance.

Bonjour,

As-tu testé le mien ?