AutoFilter

Résolu/Fermé

supupoff Messages postés 310 Date d'inscription dimanche 27 novembre 2011 Statut Membre Dernière intervention 8 janvier 2021 - 8 déc. 2013 à 10:11
supupoff Messages postés 310 Date d'inscription dimanche 27 novembre 2011 Statut Membre Dernière intervention 8 janvier 2021 - 8 déc. 2013 à 14:08

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

A voir également:

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
8 déc. 2013 à 11:24

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+

supupoff Messages postés 310 Date d'inscription dimanche 27 novembre 2011 Statut Membre Dernière intervention 8 janvier 2021 34
Modifié par supupoff le 8/12/2013 à 14:11

Merci beaucoup ça marche maintenant bien Merci bcp

Discussions similaires

VBA Methode range a échouée

Erreur 1004 : Méthode 'Range' de l'objet '_Worksheet' a échoué

input signal out of range

La connexion a échoué

VBA : Range avec références variables..

Discussions similaires

Newsletters