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 ;)
--
La chance aide parfois, le travail toujours.
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 ;)
--
La chance aide parfois, le travail toujours.
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 select de la classe range a échoué ✓ - Forum VB / VBA
- Classez ces fichiers de la plus petite taille (1) à la plus grande (4). - Forum C
- La méthode range de l'objet global a échoué ✓ - Forum Excel
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
