masquer/afficher ligne/colonne par rapport à une date

[uwestern]

Bonsoir à toutes et à tous,

J'aurais aimé savoir comment afficher une ligne par rapport à la date du jour.

J'ai les 3 premières lignes qui contiennent les entêtes (ligne 1,2,3) et j'aimerais qu'à partir de la ligne 4, les ligne ne soit visible qu'un jour par mois.

Donc concrètement, on aurais la ligne 4 visible uniquement les 1er de chaque mois, le ligne 5 uniquement les 2 de chaque mois ainsi de suite.

Pensez-vous que c'est réalisable et si oui comment, parce que j'ai pas mal cherché mais rien trouver et en VB, je ne m'y connais pas ???!!!

Meilleures salutations

Uwe

 

[VDAVID]

Re : masquer/afficher ligne/colonne par rapport à une date

Bonsoir uwestern,

Tu peux coller ce code dans le Projet This_Workbook quand tu ouvres VBA (Alt+F11):

Dim Ws As Worksheet
Dim Nb As Integer

Private Sub Workbook_Open()

    'Feuille où cacher les lignes
    Set Ws = Worksheets("Feuil1")
    'Ligne de départ
    Nb = 4    
    With Ws
        
        .Rows(nb & ":" & 31+nb).Hidden = False
        .Rows(Day(Date) + Nb-1).Hidden = True
        
    End With
    
End Sub

La macro s'executera à chaque ouverture du classeur

Bonne soirée

 

[uwestern]

Re : masquer/afficher ligne/colonne par rapport à une date

Super coool merci beaucoup pour l'aide aussi rapide... 🙂