XL 2013 Masquer une ligne en fonction d'un critere

fanch55

XLDnaute Barbatruc

• 4 Avril 2021

• #2

Bonsoir,
En transformant le tableau en table structuré et en jouant sur les filtres :

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 4 Avril 2021

• #3

Bonsoir Fca,
Un essai en PJ avec :

VB:

Sub Masque()
    Application.ScreenUpdating = False
    For L = Range("A65500").End(xlUp).Row To 2 Step -1
        If Cells(L, "H") = "OUI" Then Rows(L & ":" & L).Hidden = True
    Next L
End Sub
Sub Demasque()
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    [A1].Select
End Sub

 

Pièces jointes

• FCA.xlsm

  16.3 KB · Affichages: 18

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 4 Avril 2021

• #4

Bonjour à tous

Je te propose

@Phil69970

 

Pièces jointes

• Cache Lignes.xlsm

  18.9 KB · Affichages: 11

Vote positif 0 Vote négatif

F

fca60

XLDnaute Nouveau

• 4 Avril 2021

• #5

Merci Sylvanu, je vais essayé d'intégrer cette macro dans mon fichier sur google sheet. Je reviens vers vous pour vous signaler si cela fonctionne. Encore merci.

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 5 Avril 2021

• #6

Toujours en préalable un tableau structuré nommé Tableau1 ( à ne faire qu' 1 fois )


Le code ci-dessous est suffisant :

VB:

Sub Tab_Masque()
    [Tableau1].AutoFilter Criteria1:="<>OUI", Field:=[Tableau1].ListObject.ListColumns("Termines").Index
End Sub
Sub Tab_Demasque()
    [Tableau1].AutoFilter Field:=[Tableau1].ListObject.ListColumns("Termines").Index
End Sub

 

Pièces jointes

• FCA-1.xlsm

  22.2 KB · Affichages: 8

Vote positif 0 Vote négatif