Filtrage ListBox par différentes TextBox

Version imprimable

08/03/2016, 09h48
diddle

1 pièce(s) jointe(s)

Filtrage ListBox par différentes TextBox

Bonjour à tous,

Étant un peu amateur, voir novice sur VBA, j'aurai besoin d'un peu d'aide par rapport à un fichier.

Mon but est de pouvoir filtrer les informations de la ListBox par différentes TextBox, puis d'afficher les informations non présentes dans la ListBox lorsque je sélectionne une ligne.

Mes problèmes sont les suivants :
- Lorsque je fais une recherche par la première TextBox, la ListBox perd les titres des colonnes ainsi que la mise en forme de la ListBox
- Ma recherche mutli critères (multi TextBox) ne fonctionne pas
- Lorsque je fais une recherche et que je sélectionne ensuite une ligne de la TextBox, les informations qui s'affichent en dessous ne sont pas les bonnes

Pourriez-vous m'apporter vos expertises et aides, au moins partiellement ?

Pièce jointe 203228

En vous remerciant par avance.

Diddle

Je ferai comme ça

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Private Sub Remplissage()
Dim Typ As String, Nom As String, Pren As String, Adresse As String
Dim Plage As Range, c As Range
Dim LastLig As Long
Dim X As Integer
 
Typ = Trim(Me.TextBox19) & "*"
Nom = UCase(Trim(Me.TextBox20)) & "*"
Pren = UCase(Trim(Me.TextBox21)) & "*"
 
Me.ListBox1.Clear
 
With Worksheets("Liste")
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    Set Plage = .Range("A1:A" & LastLig)
    With Plage
        Set c = .Find(Typ)
        If Not c Is Nothing Then
            Adresse = c.Address
            Do
                If UCase(c.Offset(, 2)) Like Nom And UCase(c.Offset(, 3)) Like Pren Then
                    With Me.ListBox1
                        .AddItem c, X
                        .List(X, 1) = c.Offset(0, 1)
                        .List(X, 2) = c.Offset(0, 2)
                        .List(X, 3) = c.Offset(0, 3)
                        .List(X, 4) = c.Offset(0, 4)
                        .List(X, 5) = c.Offset(0, 5)
                        .List(X, 6) = c.Offset(0, 6)
                    End With
                    X = X + 1
                End If
 
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adresse
        End If
    End With
    Set Plage = Nothing
End With
End Sub
 
 
Private Sub UserForm_Initialize()
 
Remplissage
End Sub
 
Private Sub TextBox19_Change()
 
Remplissage
End Sub
 
Private Sub TextBox20_Change()
 
Remplissage
End Sub
 
Private Sub TextBox21_Change()
 
Remplissage
End Sub

Sinon, pour les entêtes de colonnes, passes par des labels ajustés selon la largeur des colonnes de ta ListBox, car le columnHeads n'est utile que quand on remplit la listbox à l'aide de la propriété RowSource.

Il faudra aussi, ajouter une colonne dans ta feuille de données comme index ou identifiant de tes données (sans doublons) car après filtrage de ListBox, le remplissage de tes textbox tel que écrit dans ton fichier ne sera pas correct. Cet index sera aussi la première colonne de ta ListBox et il faudra adapter le code en conséquence

08/03/2016, 16h05
diddle

Bonjour mercatog,

Merci pour ta solution.
Elle fonctionne parfaitement.

Encore merci pour ton aide précieuse. :king:

Bien cordialement