XL 2016 masquer lignes selon condition année

[biba78]

Bonjour à tous,
Tout d'abord je vous souhaite une très bonne année
j'ai besoin d'une Marco dans mon tableau, pour masquer toutes les lignes qui ne correspondent pas à l'année de la date sélectionnée dans la cellule C9.
En pièce jointe un exemple de fichier
en vous remerciant pour votre aide

 

[Jacky67]

Bonjour à tous,
Tout d'abord je vous souhaite une très bonne année
j'ai besoin d'une Marco dans mon tableau, pour masquer toutes les lignes qui ne correspondent pas à l'année de la date sélectionnée dans la cellule C9.
En pièce jointe un exemple de fichier
en vous remerciant pour votre aide

Bonjour et bonne année
Cela pourrait ressembler à ceci dans le module de la feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i&
    If Intersect(Target, [c9]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Columns(1).Rows.Hidden = False
    If [c9] = "" Then Exit Sub
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, 1) <> "" Then
            If Right(Cells(i, 1), 4) * 1 <> Year([c9]) Then Cells(i, 1).EntireRow.Hidden = True
        End If
    Next
End Sub

 

[biba78]

Merci beaucoup,