AutoFilter

Résolu/Fermé

supupoff Messages postés 312 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 312 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:

Ouvrez cette page. dans le code de la page, modifiez la couleur de fond de la classe .pix. un code de 4 chiffres doit apparaître dans la grille. lequel ?
Vba autofilter date - Forum VB / VBA
La méthode autofilter de la classe range a échoué ✓ - Forum Excel

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 524
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 312 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

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

selection lignes issues d'un autofilter vba

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

Run-time error '1004' Autofilter medthod of range class failed

Filtrer date par macro VBA - pb de format