AutoFilter

Résolu
viret1290 Messages postés 141 Date d'inscription   Statut Membre Dernière intervention   -  
viret1290 Messages postés 141 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je cherche à remplacer dans la ligne ci-dessous Test par le contenu dans TextBox
ActiveSheet.Range("$C$9:$X$27").AutoFilter Field:=10, Criteria1:="*Test*", Operator:=xlAnd

Dans les cellules ou il doit faire le tri, il y a plusieurs ligne avec plusieurs nom.
ActiveSheet.Range("$C$9:$X$27").AutoFilter Field:=10, Criteria1:=TextBox, Operator:=xlAnd

il ne trouve pas les cellules qui contienne le texte Test dans les cellules.

Merci de votre aide.

Lionel

1 réponse

Réponse 1 / 1
viret1290 Messages postés 141 Date d'inscription   Statut Membre Dernière intervention   2
 
il faut mettre TextBox comme suit

"*" & TextBoxDetenu & "*"

ActiveSheet.Range("$C$9:$X$27").AutoFilter Field:=10, Criteria1:="*" & TextBoxDetenu & "*", Operator:=xlAnd
0

Discussions similaires

AutoFilter
supupoff -
supupoff -

2 réponses
Erreur '1004' Méthode autofilter de la classe range a échoué
Ela1005 -
f894009 -

1 réponse
VBA - Macro Filtre automatique - Erreur 1004
Alex1857 -
Alex1857 -

5 réponses