AutoFilter
Résolu
supupoff
Messages postés
350
Statut
Membre
-
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é :
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 ;)
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:
- La méthode autofilter de la classe range a échoué
- Ajoutez à la liste de contacts ana le goff, inscrite le 27 novembre 2015, dans la catégorie i. puis triez les contacts en les classant : par ordre alphabétique de leur nom de famille (critère principal), puis par date du plus récent au plus ancien (critère secondaire). quel mot apparaît à la verticale dans la colonne "catégorie" entre les lignes 200 et 209 (en-tête compris) ? ✓ - Forum Word
- Input signal out of range - Forum Ecran
- 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 ? - Forum Réseaux sociaux
- La méthode select de la classe range a échoué ✓ - Forum VB / VBA
- Out of range - Forum Windows
1 réponse
Bonjour,
Essaie comme cela
A+
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
350
Statut
Membre
34
Merci beaucoup ça marche maintenant bien Merci bcp
