AutoFilter

Résolu/Fermé

viret1290 Messages postés 141 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 28 juillet 2024 - 19 mars 2021 à 13:01
viret1290 Messages postés 141 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 28 juillet 2024 - 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

A voir également:

AutoFilter
Autofilter method of range class failed ✓ - Forum VB / VBA
Vba autofilter date - Forum VB / VBA
La méthode autofilter de la classe range a échoué ✓ - Forum Excel

1 réponse

Réponse 1 / 1

viret1290 Messages postés 141 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 28 juillet 2024 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

Discussions similaires

Filtrer date par macro VBA - pb de format

AutoFilter

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

selection lignes issues d'un autofilter vba

[VBA-EXCEL] Méthode AutoFilter et Objet Range