AutoFilter

Résolu
supupoff -  
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
    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 Auteur
      Merci beaucoup ça marche maintenant bien Merci bcp
      0

Discussions similaires

[VBA-EXCEL] Méthode AutoFilter et Objet Range
O_ôUps

3 réponses
Pb VBA: Filtrer une date avec InputBox & AutoFilter
KCE.N

6 réponses
Run-time error '1004' Autofilter medthod of range class failed
solidarinfo

8 réponses