Discussion :

[llyglad]

Bonjour à toutes et tous,
Sur un userform ("Gestion Clients"), une listview alimentée par une table excel de 3000 contacts("TableContact"), pour aller rechercher un nom , c'est un cauchemar .
je souhaite donc utiliser un texbox en frappe intuitive (style recherche google), (je sais à peu prêt le faire, merci le forum , avec un control listbox , quand même moins puissant que listview).
J'ai visiblement besoin d'aide béotien que je suis.
Merci d'avance pour votre aide précieuse.
Cordialement

[boisgontierjacques]

Bonjour,

Exemple en PJ

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
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