XL 2016 filtre dynamique vba

RobyL · 28 Décembre 2021

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 · 28 Décembre 2021

Bonjour Robyl,
Essayez avec :

VB:

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

sylvanu · 28 Décembre 2021

Bonjour Robyl,
Essayez avec :

VB:

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

RobyL · 28 Décembre 2021

merci ça marche nikel

XL 2016 filtre dynamique vba

RobyL

XLDnaute Junior

sylvanu

sylvanu

XLDnaute Barbatruc

RobyL

XLDnaute Junior

Discussions similaires