utilisation de AUTOFILTER

Bonjour,

Je souhaite utiliser la fonction AUTOFILTER pour faire des filtres multiples dans une feuille excel contenant des données dans 120 colonnes différents

La valeur du critère est contenue dans une variable.

Si j'ecris

Code:

---

AutoFilter field:=72, Criteria1:=">250", Criteria2:="<260"

---

cela fonctionne
Si j'écris

Code:

---

AutoFilter field:=72, Criteria1:=">" & CStr(DiamInf), Operator:=xlAnd, Criteria2:="<" & CStr(DiamSup)

---

cela ne fonctionne pas.

Pouvez-vous m'aider?
Merci d'avance


Voici le code que j'ai écrit: il faut savoir que le filtre avec le listbox1 fonctionne et celui avec les variables DiamSup et DiamInf ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

With Classeur_Source.Worksheets("DIPO") Set PLaGe = .Range(.Cells(5, 1), Cells(5, 1).End(xlDown)).Resize(, 120) End With With PLaGe .AutoFilter If (ListBox1.ListIndex <> -1) Then .AutoFilter field:=120, Criteria1:="=" & ListBox1.Value, visibledropdown:=True End If If DiamSup <> 0 Then .AutoFilter field:=72, Criteria1:=">" & CStr(DiamInf), Operator:=xlAnd, Criteria2:="<" & CStr(DiamSup), visibledropdown:=True '.AutoFilter field:=72, Criteria1:=">250", Criteria2:="<260", visibledropdown:=True End If End With

---

Eric

Bonjour.

Je n'ai pas vu le type de DiamInf et DiamSup, mais tu pourrais essayer en enlevant les Cstr.

PGZ

Bonjour PGZ,

les 2 variables sont de type SINGLE.
meme problème en enlevant les CSTR.

Avez-vous une autre suggestion?

Eric

bonjour,

et en passant par une variable du genre :

Code:

---

1 2	Dim Var1 As String Var1 = Chr(34) & ">" & CStr(diaminf) & Chr(34)

---

.

Re,

Autre idée, remplacer

Code:

---

CStr(DiamInf)

---

par

Code:

---

Replace(DiamInf,",",".")

---

PGZ

Bonjour,
il me semble que le filtre élaboré est tout à fait adapté à cette demande.

Bonne journée.

Bonjour,

Merci pour vos idées, j'ai trouvé la réponse à partir de l'une d'entre elle.
L'idée est de mettre tout le critère dans un variable et de l'affecter à Criteria
Voici la solution qui fonctione dans mon programme:

Code:

---

1 2 3 4 5 6

Dim DiamSup, DiamInf as string ' ..... DiamSup = "<=" & CStr(CSng(TextBox1.Value) + 10) DiamInf = ">=" & CStr(CSng(TextBox1.Value) -10) ' ..... .AutoFilter field:=72, Criteria1:=DiamInf, Operator:=xlAnd, Criteria2:=DiamSup, visibledropdown:=True

---

Encore merci pour votre aide.

Eric