Masquer lignes suivants une cellule

[cocoAin]

Bonjour à tous!

Je suis nouveau par ici !

J'aimerais de l'aide sur un code que je n'arrive pas a trouver !

Quand je sélectionne le mois de la cellule "B2", j'aimerais que les autres dates non concernés soient masqué.

Je vous joins un fichier d'exemple.

Merci d'avance !

 

[Grand Chaman Excel]

Re : Masquer lignes suivants une cellule

Bonjour cocoAin et bienvenue sur le forum,

Voici une proposition que tu pourras adapter. Tu dois placer le code dans la feuille "NA01". Pour y accéder, ALT+F11 pour aller dans l'éditeur VBA ou bouton droit sur l'onglet| Visualiser le code :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, rg As Range
    
    Application.ScreenUpdating = False

    Cells.EntireRow.Hidden = False
    If Target = [B1] Then
        Set rg = ActiveSheet.Range("B1:B" & ActiveSheet.Range("B65000").End(xlUp).Row)
        For Each c In rg
            If Month(c) <> Month([B1]) Then c.EntireRow.Hidden = True
        Next c
    End If
    
    Application.ScreenUpdating = True
    
End Sub

A+