Difficulté pour créer un filtre automatique

Bonjour Forum !

J’ai des problèmes pour créer un filtre (voir aussi fichier joint) : c’est trop compliqué pour mes petits moyens.

Quelqu’un pourrait-il m’aider ?

Merci !!!

Je veux agir sur une plage…

(lignes 22 à 60 - mais cette plage va s’enrichir, donc s’allonger avec le temps, elle est donc variable.

Filtrer toute la feuille à partir de la ligne 22 irait bien).

Si l’utilisateur renseigne la cellule D20, seules les lignes contenant le texte de la cellule D20 s’affichent.

Dans mon cas, si on entre le mot "ferraillage" dans la cellule D20, seules s'affichent les lignes où apparait le mot "ferraillage" dans la colonne D.

Si l’utilisateur efface le contenu de la cellule D20, il n’y a plus de filtrage.

Bonjour

Regarde si ce fichier correspond à ton attente (active les macros)

Amicalement

Nad

Merci Nad !

Ça marche presque super bien (voir fichier joint).

Sauf un truc : dans ma liste, il arrive qu'il y ait des lignes groupées.

Dans ce cas, la ligne de synthèse est filtrée alors qu'elle devrait apparaître.

Je ne sais pas résoudre ce problème !

Help !

Hum hum,

Je me permets de relancer ce sujet en espérant que quelqu'un pourra m'aider.

Merci !

Bonjour à tous, bonjour Nad,

je n'ai pas compris l'utilité des formules en colonne "D", ni le mode plan !

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Lg&
    If Not Application.Intersect(Target, Range("D19")) Is Nothing Then
        Application.ScreenUpdating = False
            On Error Resume Next
            ActiveSheet.ShowAllData
            On Error GoTo 0
        Lg = Range("d" & Rows.Count).End(xlUp).Row

        If IsEmpty(Target) Then Range("f19").ClearContents: Exit Sub
        '--- filtre ---
        Range("f19") = "*" & Target 'critère
        Range("d22:e" & Lg).AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Range("f18:f19"), Unique:=False
    End If
End Sub

Bonne journée

Claude

Ça marche !

Merci beaucoup !!!

N'oublie pas la petite formalité