Sujet Précédent Sujet Suivant

AutoFilter

Résolu/Fermé
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 19 mars 2021 à 13:01
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 19 mars 2021 à 13:19
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 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 2
19 mars 2021 à 13:19
il faut mettre TextBox comme suit

"*" & TextBoxDetenu & "*"

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

Discussions similaires

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

1 réponse
Filtrer date par macro VBA - pb de format
Sailorbop -
Riaolle -

14 réponses
Run-time error '1004' Autofilter medthod of range class failed
solidarinfo -
solidarinfo -

8 réponses
VBA - Macro Filtre automatique - Erreur 1004
Alex1857 -
Alex1857 -

5 réponses
Erreur 1004-La méthode Sort de la classe Range a échoué
Ruffian15 -
f894009 -

5 réponses