XL 2016 filtre dynamique vba

[RobyL]

Bonjour à tous.

je souhaite créer un filtre dynamique pour 1 tableau.

j'ai creé ce code :

Sub RECHDT()

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3, Criteria1:= _
Range("D1").Value

End Sub

il trie selon ma case "D1"
il fonctionne mais juste pour les recherches exacte.
je voudrais pouvoir faire une recherche avec un mot ou un chiffre partiel et qu'il me donne tous se qui contient se que j'ai marquer.
exemple : recherche => 1230 => il trouve tous se que contient "1230"

merci pour votre aide.

 

[sylvanu]

Bonjour Robyl,
Essayez avec :

Sub RECHDT()
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3, Criteria1:= _
"=*" & [D1] & "*",Operator:=xlAnd
End Sub

 

[RobyL]

merci ça marche nikel