AutoFilter

Résolu
supupoff Messages postés 350 Statut Membre -  
supupoff Messages postés 350 Statut Membre -
Bonjour,

je veux créer un Autofilter avec VBA mais je cherche si uns Cell contient une partie de mot recherche l'affiche aussi,

exemple de ce que j' débrouillé : 

If Worksheets("Sheet1").Range("A2") <> "" Then
    Worksheets("Sheet1").ListObjects("Table1").Range.AutoFilter _
    Field:=1, Criteria1:="=" & Worksheets("Sheet1").Range("A2")
Else
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1
End If

Alors je veux que si je saisis "oo" dans A2 il trouve tous les lignes contient *oo*
exemple Book... look ... etc ..

Comment je peux faire ??

Merci d'avance ;)

--
La chance aide parfois, le travail toujours.

1 réponse

  1.
    Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Essaie comme cela 
        With Worksheets("Sheet1")
            If .Range("A2") <> "" Then
                .ListObjects("Table1").Range.AutoFilter _
                Field:=1, Criteria1:="=*" & .Range("A2") & "*", Operator:=xlAnd
            Else
                .ListObjects("Table1").Range.AutoFilter Field:=1
            End If
        End With

    A+
    1
    1. supupoff Messages postés 350 Statut Membre 34
       
      Merci beaucoup ça marche maintenant bien Merci bcp
      0

Discussions similaires

Ecran BenQ "Input signal out of range"
marlene -
usman000 -

14 réponses
Code source couleur de fond
Mehdi-Amg -
Techno01 -

9 réponses
L'acces à la carte SD a échoué, nintendo 3DS
Michou76 -
Wiwi -

11 réponses
L'accès à la carte microSD à échoué [New3DS]
IFlavienI -
sofi35 -

3 réponses
Changer la couleur de fond des pages web
Laylomi -
dadwu -

22 réponses