Probleme avec les combobox
Bonsoir tous le monde!!
je viens vers vous en espérant que votre aide précieuse puisse me sortir de ce petit problème.
Voici mon petit souci,mes combobox n'affiche pas le contenu de mon listbox qui contient plusieurs données et que j'aurais aimé filtrer via mes combobox.
voici le code gérant mes combobox:
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
|
Private Sub Rechercher()
' Rechercher les données en fonction des critères 1 et 2 et 3
Dim rCel As Range
Dim lgLig As Long
Dim lgLigDeb As Long
Dim Critere1 As String
Dim Critere2 As String
Dim Critere3 As String
Dim Critere4 As String
Dim Critere5 As String
Critere1 = "*"
If RechercheC1.Value <> "" Then Critere1 = RechercheC1.Value
Critere2 = "*"
If RechercheC2.Value <> "" Then Critere2 = RechercheC2.Value
Critere3 = "*"
If RechercheC3.Value <> "" Then Critere3 = RechercheC3.Value
ListBoxLocataire.Clear
' Boucle de la 2me à la dernière ligne de la feuille Feuil1
For lgLigDeb = 1 To Range("A" & Cells.Rows.Count).End(xlUp).Row
If Range("A" & lgLigDeb).Value Like Critere1 And Range("D" & lgLigDeb).Value Like Critere2 And Range("F" & lgLigDeb).Value Like Critere3 Then
With ListBoxLocataire
.AddItem Range("A" & lgLigDeb).Value
.List(.ListCount - 1, 1) = Range("B" & lgLigDeb).Value
.List(.ListCount - 1, 2) = Range("C" & lgLigDeb).Value
.List(.ListCount - 1, 3) = Range("D" & lgLigDeb).Value
.List(.ListCount - 1, 4) = Range("E" & lgLigDeb).Value
.List(.ListCount - 1, 5) = Range("F" & lgLigDeb).Value
.List(.ListCount - 1, 6) = Range("G" & lgLigDeb).Value
.List(.ListCount - 1, 7) = lgLigDeb
lgLig = lgLig + 1
End With
End If
Next lgLigDeb
End Sub |
j'espère que j'ai été assez explicite.
Merci beaucoup de votre aide futur.
tchuss
