Discussion :

[Umaro137]

Bonjour,
Je souhaite faire une macro qui recherche dans ma base de données en fonction des champs selectionnés dans les listbox1 et 2, qui se réfèrent aux colonnes D et E de ma base, et qui affiche les lignes résultats de la colonne B à E dans la listbox3.

voici mon code :

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
Private Sub CommandButton3_Click()
Dim i As Long, j As Long, activity As Boolean, sector As Boolean, champ As Range, recherchok As Range
Set champ = Sheet3.Range("B1:E1")
ListBox3.ColumnCount = Sheet3.Range("B1:E1").Columns.Count
For j = 2 To Sheet3.UsedRange.Rows.Count
    For i = 0 To ListBox1.ListCount - 1
        If Sheet3.Range("D" & j).Value = ListBox1.List(i) And ListBox1.Selected(i) = True Then activity = True
    Next i
    For i = 0 To ListBox2.ListCount - 1
        If Sheet3.Range("E" & j).Value = ListBox2.List(i) And ListBox2.Selected(i) = True Then sector = True
    Next i
    If activity = True And sector = True Then
    Set recherchok = Sheet3.Cells(j, 2).Resize(1, 4)
    Set champ = Application.Union(champ, recherchok)
    End If
    activity = False
    sector = False
Next j
ListBox3.List() = champ.Value
End Sub

le problème c'est que cela ne m'affiche que les lignes résultat qui se suivent dans ma base de données.

Pouvez-vous m'aider???

[LeForestier]

Bonjour,
Sans parler de code, explique un peu mieux ce que tu veux faire.
Avoir un filtre sélectionner dans List1 et List2 ??
ou, faire une recherche dans la plage avec le critère de List1 et une autre recherche avec critère de List2 ?
C'est pas fort clair.
A=

[Umaro137]

Bonjour,
alors le truc c'est que je souhaite faire une recherche qui retourne les lignes qui ont à la fois (un des critères selectionnés dans listbox1) et (un des critères selectionnés dans listbox2) et qui retourne ces lignes de la colonne Bà E dans la listbox3

[LeForestier]

Cette fois, je comprend ce que tu veux, mais les 2 critères sur la même ligne ?
par exemple Critère 1 Voiture et critère 2 Renault.
Et il faut trouver toutes les lignes qui ont ces deux critères dans les colonnes que tu précises!
Tes ListBox elles sont sur une feuille ou un Userform ?

Tu dis.

[Umaro137]

Tout est dans un userform

je joins le fichier pour être plus explicite.

[Umaro137]

je viens de faire plusieur tests avec des espions et j'ai cerné plusieurs choses :

dans ma variable champ (de type range) quand je regarde le nombre de cellules (count) il me retourne bien le nombre de case des lignes qui satisfont les 2 critère, mais quand je regarde formula, il ne me sort que les cellules des lignes qui satisfont les 2 critère et qui sont connexes (les une à la suite des autres).
Cela peut-il aider quelqu'un à m'aider ?

[LeForestier]

J'ai pas eu le temps pour revenir, mais ça pourrait peut-être t'inspirer
A+

[Umaro137]

Voilà j'ai réussi à solutionner mon problème.
en fait j'ai surtout mal posé ma question. le problème était d'afficher dans une listbox le contenu d'une variable range qui possède plusieurs champs dijoints (construite avec la commande union).
Pour ceux que ça pourrait aider voilà la code de cet affichage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For Each plage In champ.Areas
For i = 1 To plage.Rows.Count
ListBox3.AddItem plage(i, 1).Value
For j = 2 To plage.Columns.Count
ListBox3.List(nbligne, j - 1) = plage(i, j).Value
Next j
nbligne = nbligne + 1
Next i
Next

où champ est la variable range origine et listbox3 la listbox d'affichage

En espérant que ça puisse aider quelqu'un.......