Discussion :

[Eric59740]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

cela fonctionne
Si j'écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

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

PGZ

[Eric59740]

Bonjour PGZ,

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

Avez-vous une autre suggestion?

Eric

[aalex_38]

bonjour,

et en passant par une variable du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

.

[pgz]

Re,

Autre idée, remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CStr(DiamInf)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

PGZ

[Godzestla]

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

Bonne journée.

[Eric59740]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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