Autofilter et textbox

julie -
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 ?

A voir également:

Autofilter et textbox
La méthode autofilter de la classe range a échoué - Forum VB / VBA
Vba textbox date format dd/mm/yyyy ✓ - Forum VB / VBA
Comment concatener plusieurs textbox ✓ - Forum Excel
Colorer textbox sélectionné ✓ - Forum VB / VBA
Focus TextBox WPF ✓ - Forum C#

1 réponse

Réponse 1 / 1

Utilisateur anonyme

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 & "*"

Discussions similaires

[VBA] format de date dans textbox

[Excel-VBA] format date

Textbox date

AutoFilter

Backcolor TextBox

Votre réponse

Discussions similaires