Bonjour tout le monde,

Je sèche un peu pour utiliser 2 filtres en même temps sur un formulaire sur Excel.

En fait quand je filtres un champs et ensuite un 2eme, il ne me prend en compte que celui du 2eme (pas sûr d'avoir été clair là…)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Private Sub TextBoxRechCIE_Change()
'RECHERCHE PAR ASSUREUR
  Dim Tbl(): j = 0
  clé = "*" & Me.TextBoxRechCIE & "*"
  For i = 1 To UBound(TblBD)
    If TblBD(i, 16) Like clé Then
      j = j + 1: ReDim Preserve Tbl(1 To NbCol, 1 To j)
      c = 0
      For Each k In ColVisu
        c = c + 1: Tbl(c, j) = TblBD(i, k)
      Next k
    End If
  Next i
    If j > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear
End Sub
Private Sub TextBoxRechSTE_Change()
'RECHERCHE PAR SOCIETE
  Dim Tbl(): j = 0
  clé = "*" & Me.TextBoxRechSTE & "*"
  For i = 1 To UBound(TblBD)
    If TblBD(i, 2) Like clé Then
      j = j + 1: ReDim Preserve Tbl(1 To NbCol, 1 To j)
      c = 0
      For Each k In ColVisu
        c = c + 1: Tbl(c, j) = TblBD(i, k)
      Next k
    End If
  Next i
    If j > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear
End Sub
Est ce possible? Merci