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é
- 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
- Out of range - Forum Ecran
- La méthode range de l'objet _global a échoué ✓ - Forum VB / VBA
- La méthode select de la classe range a échoué ✓ - Forum VB / VBA
- Classez ces fichiers de la plus petite taille (1) à la plus grande (4). - Forum Bases de données
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
