Autofilter et textbox

Fermé
julie - 19 juil. 2018 à 11:09
 Utilisateur anonyme - 19 juil. 2018 à 12:08
Bonjour,

J'arrive à faire fonctionner la ligne de code suivante :
ActiveSheet.Range("$A$3:$M$252").AutoFilter Field:=7, Criteria1:="=*R407C*", Operator:=xlAnd


Mon objectif est de remplacer R407C par la variable refrigerant que je lis dans une textbox comme ci-dessous :

Dim refrigerant as string
refrigerant = textbox1.text


donc j'ai modifié la première ligne comme ceci :
ActiveSheet.Range("$A$3:$M$252").AutoFilter Field:=7, Criteria1:="=*refrigerant*", Operator:=xlAnd


mais ca ne marche pas il prend pas la valeur de la variable mais trie la colonne avec le mot refrigerant au lieu refrigerant = R407C par exemple !!
Est ce que quelqu'un peut m'aider ?

1 réponse

Bonjour
C’est normal, puisque le mot refrigerant est placé entre les « », ça veut dire le texte refrigerant, d’ailleurs sur le forum le mot apparaît en rouge.

Pour obtenir le contenu de la variable il faut faire un truc comme ça
Criteria1:="=*"& refrigerant & "*"


0