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

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

Privacy & Transparency

Privacy & Transparency