Filtrage avec textbox (incluant < et >)

[tartare2009]

Bonjour,
voici une ligne de code toute bete pour faire un filtrage sur mon fichier excel:

If ComboBoxpotenza3.Value = "P (kW)<3" Then
ActiveSheet.Range("a1:t1").AutoFilter Field:=15, Criteria1:="<3"
End If

mon problème réside dans le fait que maintenant je souhaite faire un filtrage des données inférieures d'une textbox.

If TextBox1.Value <> "" Then
ActiveSheet.Range("a1:t1").AutoFilter Field:=15, Criteria1:="= <textBox1.Value"
End If

Avec ce code, excel execute un filtre. Mais aucun résultat n'est visible, car dans excel mon filtre ne se base pas sur la valeur de la textbox1 (cad 10,20 ou 1000 par exemple) mais sur la valeur "textbox1" et donc aucun résultat.

J'espère etre clair. Si quelqu'un a une idée.

Merci

 

[GI_tang]

Re : Filtrage avec textbox (incluant < et >)

c'est pas très clair mais je pense que ton code est faut, essai :

ActiveSheet.Range("a1:t1").AutoFilter Field:=15, Criteria1:="= <" & textBox1.Value

 

[tartare2009]

Re : Filtrage avec textbox (incluant < et >)

Merci. Ca marche maintenant

 

[kjin]

Re : Filtrage avec textbox (incluant < et >)

Bonjour,

ActiveSheet.Range("A1").AutoFilter Field:=15, Criteria1:="<" & TextBox1

A+
kjin

 

[job75]

Re : Filtrage avec textbox (incluant < et >)

Bonjour le fil, salut kjin 🙂

Merci. Ca marche maintenant

Je me demande bien comment, car le critère "= <" ne peut pas fonctionner.

Donc utiliser le code de kjin, ou éventuellement :

Range(Range("A1:T1"), ActiveSheet.UsedRange).AutoFilter Field:=15, Criteria1:="[COLOR="Red"]<=[/COLOR]" & TextBox1

A+