XL 2016 masquer lignes selon condition année

biba78 · 8 Janvier 2021

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 · 8 Janvier 2021

biba78 à dit:
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.

VB:

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 · 6 Février 2021

Merci beaucoup,

XL 2016 masquer lignes selon condition année

biba78

XLDnaute Junior

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

biba78

XLDnaute Junior

Discussions similaires