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 ;)


1 réponse

Réponse 1 / 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
supupoff Messages postés 350 Statut Membre 34
 
Merci beaucoup ça marche maintenant bien Merci bcp
0

Discussions similaires

Erreur '1004' Méthode autofilter de la classe range a échoué
Ela1005 -
f894009 -

1 réponse