[XL-2013] Recherche intutive Textbox et Listview

Bonjour,

Exemple en PJ
Code:
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
Option Compare Text
Dim f, Tbl(), Ncol
 
 
Private Sub UserForm_Initialize()
   Set f = Sheets("bd")
   Set d = CreateObject("scripting.dictionary")
   Tbl = f.Range("A2:P" & f.[A65000].End(xlUp).Row).Value
   Ncol = UBound(Tbl, 2)
   '---listview
    With Me.ListView1
        With .ColumnHeaders
           .Clear
           For k = 1 To Ncol
             .Add , , f.Cells(1, k), f.Columns(k).Width * 1
           Next k
        End With
        .Gridlines = True
        .View = lvwReport
        ligne = 1
        For i = 1 To UBound(Tbl)
          .ListItems.Add , , Tbl(i, 1)
          For k = 2 To Ncol
            .ListItems(ligne).ListSubItems.Add , , Tbl(i, k)
          Next k
          ligne = ligne + 1
        Next i
    End With
End Sub
 
Private Sub TextBoxRech_Change()
    ligne = 1
    With Me.ListView1
     .ListItems.Clear
     For lig = 1 To UBound(Tbl)
      If Tbl(lig, 4) Like "*" & Me.TextBoxRech & "*" Then
       .ListItems.Add , , Tbl(lig, 1)
       For k = 2 To Ncol
          .ListItems(ligne).ListSubItems.Add , , Tbl(lig, k)
       Next k
       ligne = ligne + 1
      End If
    Next lig
    Me.TextBox1 = .ListItems.Count
  End With
 
End Sub
Boisgontier