1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
Sub essaiFiltre2cond()
'Sheets("Result").Select
Set f = Sheets("Sim RO")
Tbl = f.Range("A3:G" & f.[A65000].End(xlUp).Row).Value
Clé1 = "465-02": colClé1 = 1
Clé2 = "PERS": colClé2 = 2
b = FiltreMultiCol2(Tbl, colClé1, Clé1, Array(1), colClé2, Clé2, 1)
If Not IsEmpty(b) Then Sheets("res").[A10].Resize(UBound(b), UBound(b, 2)) = b
End Sub
Function FiltreMultiCol2(Tbl, colClé1, Clé1, ColResult, Optional colClé2, Optional Clé2, Optional ColTri)
ligne = 1
If IsMissing(colClé2) Then colClé2 = colClé1: Clé2 = Clé1
For i = LBound(Tbl) To UBound(Tbl)
If Tbl(i, colClé1) = Clé1 And Tbl(i, colClé2) = Clé2 Then n = n + 1
Next i
Dim b()
If n > 0 Then
If IsArray(ColResult) Then
ReDim b(LBound(Tbl) To n, LBound(ColResult) + 1 To UBound(ColResult) - LBound(ColResult) + 1)
Else
ReDim b(LBound(Tbl) To n, 1 To 1)
End If
For i = LBound(Tbl, 1) To UBound(Tbl, 1)
If Tbl(i, colClé1) = Clé1 And Tbl(i, colClé2) = Clé2 Then
If IsArray(ColResult) Then
For c = LBound(ColResult) To UBound(ColResult)
col = ColResult(c)
b(ligne, c + 1) = Tbl(i, col)
Next c
Else
b(ligne, ColResult) = Tbl(i, ColResult)
End If
ligne = ligne + 1
End If
Next i
If Not IsMissing(ColTri) Then Call TriCol(b, LBound(b), UBound(b), ColTri)
FiltreMultiCol2 = b
End If
End Function
Sub TriCol(a(), gauc, droi, ColTri) ' Quick sort
Ref = a((gauc + droi) \ 2, ColTri)
g = gauc: d = droi
Do
Do While a(g, ColTri) < Ref: g = g + 1: Loop
Do While Ref < a(d, ColTri): d = d - 1: Loop
If g <= d Then
For col = LBound(a, 2) To UBound(a, 2)
temp = a(g, col): a(g, col) = a(d, col): a(d, col) = temp
Next col
g = g + 1: d = d - 1
End If
Loop While g <= d
If g < droi Then Call TriCol(a, g, droi, ColTri)
If gauc < d Then Call TriCol(a, gauc, d, ColTri)
End Sub |
