Filtre textuel en référence à une cellule

Bonjour à tous,

Grâce à un exemple pris sur ce forum j'ai pu adapter le fichier joint à ma situation.

J'ai en première page "feuil2" une page d'accueil permettant de saisir de nouvelles données et un espace que je souhaite affecter à la recherche.

C'est sur la recherche que j'ai un problème... j'envisageais d'enregistrer une macro qui prendrai le texte écrit en I6/I7 ou I8 et qui effectuerai un filtre sur la colonne correspondante dans mon tableau de base de données (BDD).

Seulement, il ne semble pas possible de faire référence à une cellule dans un filtre textuel "contient". En tout cas mes compétences ne me le permettent pas .

Est-ce que vous pourriez m'aider sur ce point ?

Merci d'avance pour votre aide.

Lionel.

Bonjour

A tester

Whouahou,

Merci pour le message de bienvenue et merci pour l'efficacité.

C'est parfait! Est-ce que vous pourriez me préciser la ligne de code que je pourrai rajouter pour que s'affiche directement la 2ème feuille "BDD" lorsque l'on lance la macro "rechercher"?

Encore merci !

Bonjour

Rajoutes la ligne surlignée

Option Explicit

Sub Recherche()
Dim Sh As Shape
Dim NbLg As Long

  Set Sh = ActiveSheet.Shapes(Application.Caller)
  'MsgBox "Ligne " & Sh.TopLeftCell.Row
  With Sheets("bdd")
    If .FilterMode Then .ShowAllData
    NbLg = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A1:E" & NbLg).AutoFilter , field:=Sh.TopLeftCell.Row - 5, Criteria1:="*" & Range("I" & Sh.TopLeftCell.Row) & "*"
   .Select
  End With
End Sub

Merci beaucoup Banzai64 !

C'est parfait !!

Banzai64 a écrit :

Bonjour

Rajoutes la ligne surlignée

Option Explicit

Sub Recherche()
Dim Sh As Shape
Dim NbLg As Long

  Set Sh = ActiveSheet.Shapes(Application.Caller)
  'MsgBox "Ligne " & Sh.TopLeftCell.Row
  With Sheets("bdd")
    If .FilterMode Then .ShowAllData
    NbLg = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A1:E" & NbLg).AutoFilter , field:=Sh.TopLeftCell.Row - 5, Criteria1:="*" & Range("I" & Sh.TopLeftCell.Row) & "*"
   .Select
  End With
End Sub