trouvé un mot dans un tableau (Resolu)

[achraf26]

je voudrai trier automatiquement la tableau dans la colonne Dossier et afficher juste la ligne dont le mot affiché dans la cellule D7 avec un macro
ça sera beaucoup mieux si ça sera fesable mais sans bouton rechercher
je vous remercie beaucoup pour votre aide

 

[DoubleZero]

Re-bonjour,

Un autre essai.

Onglet "Infos" :

Option Explicit
Private Sub Worksheet_selectionChange(ByVal c As Range)
    If c.Count > 1 Or c.Column <> 2 Or c.Row < 10 Then Exit Sub
    If c <> "" Then With Sheets("Docs"): .Activate: .Range("D7") = c: .ListObjects("TPA").Range.AutoFilter Field:=3, Criteria1:=c: End With
End Sub

Onglet "Docs" :

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Address = "$D$7" Then
        Select Case c
        Case "": ActiveSheet.ListObjects("TPA").Range.AutoFilter Field:=3
        Case Else: ActiveSheet.ListObjects("TPA").Range.AutoFilter Field:=3, Criteria1:=c
        End Select
        [d7].Select
    End If
End Sub

A bientôt