Discussion :

[kodyone]

Bonjour à tous,

J'ai besoin d'aide pour corriger ma procédure de filtre dans une listview.

En effet j'ai 8 Comboboxs à partir desquelles je veux lancer ma procédure de filtre c'est à dire:

Ma Combobox1 Filtrée m'affiche des données dans ma combobox2 et dans la listview selon le filtre ainsi de suite jusqu'au 8ème combobox.

J'ai fait en ma manière pour obtenir un résultat qui n'ai pas satisfaisant.

Le premier filtre avec la Combobox1 fonctionne très bien, par contre avec les autres combobox ca ne marche pas car surtout avec la 3ème combobox, rien ne s'affiche dans ma Listview.

Code du Filtre

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
Sub Filtrer(P As Byte)
C = Feuil2.Range("B7:P" & Feuil2.Range("B1048576").End(xlUp).Row).Value
    With Registre_Pr.Registre
    .ListItems.Clear
 
For i = 1 To UBound(C, 1)
    If CStr(C(i, P)) = Registre_Pr.Controls("ComboBox" & P) Then
    .ListItems.Add , , CDate(C(i, 1))
    Lg = .ListItems.Count
 
    .ListItems(Lg).ListSubItems.Add , , Format(C(i, 2), "Mm")
    .ListItems(Lg).ListSubItems.Add , , C(i, 3)
    .ListItems(Lg).ListSubItems.Add , , C(i, 4)
    .ListItems(Lg).ListSubItems.Add , , C(i, 5)
    .ListItems(Lg).ListSubItems.Add , , C(i, 6)
    .ListItems(Lg).ListSubItems.Add , , C(i, 7)
    .ListItems(Lg).ListSubItems.Add , , C(i, 8)
    .ListItems(Lg).ListSubItems.Add , , C(i, 9)
    .ListItems(Lg).ListSubItems.Add , , C(i, 10)
    .ListItems(Lg).ListSubItems.Add , , C(i, 11)
    .ListItems(Lg).ListSubItems.Add , , Format(C(i, 12), "# ### ### CFA")
    .ListItems(Lg).ListSubItems.Add , , Format(C(i, 13), "# ### ### CFA")
    .ListItems(Lg).ListSubItems.Add , , Format(C(i, 14), "# ### ### CFA")
    .ListItems(Lg).ListSubItems.Add , , Format(C(i, 15), "# ### ### CFA")
 
End If
Next i
End With
End Sub

Code pour Combobox1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
ComboBox6.Clear
ComboBox7.Clear
ComboBox8.Clear
 
Set S = CreateObject("Scripting.Dictionary")
For Lg = 1 To UBound(C)
If CStr(C(Lg, 1)) = ComboBox1.Value Then S(C(Lg, 2)) = ""
Next Lg
ComboBox2.List = S.keys
Filtrer (1)

Code pour Combobox2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
ComboBox6.Clear
ComboBox7.Clear
ComboBox8.Clear
 
Set S = CreateObject("Scripting.Dictionary")
For Lg = 1 To UBound(C)
If CStr(C(Lg, 2)) = ComboBox2.Value Then S(C(Lg, 4)) = ""
Next Lg
ComboBox3.List = S.keys
Filtrer (2)

Code pour Combobox3

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
ComboBox4.Clear
ComboBox5.Clear
ComboBox6.Clear
ComboBox7.Clear
ComboBox8.Clear
 
Set S = CreateObject("Scripting.Dictionary")
For Lg = 1 To UBound(C)
If CStr(C(Lg, 4)) = ComboBox3.Value Then S(C(Lg, 7)) = ""
Next Lg
ComboBox4.List = S.keys
Filtrer (3)

C'est le même code utilisé pour les autres comboboxs selon les lignes et colonnes.

Voici des images d'exécution du code.

1) La procédure marche très bien avec le filtre de ma première combobox (Voir Image 1)



2) Avec la deuxième combobox le filtre initialise tous les données du mois pourtant je voulais que ce soit uniquement les données de la date de la première combobox au mois du filtre 2 (Voir Image 2)



3) Avec la Combobox 3 rien ne s'affiche du tout pourtant dans l'image 1 vous voyez bien qu'il y'a bien des données (d'impression) (Voir Image 3)



Merci de me guider et merci pour votre bonne collaboration

[Lilou51]

Bonjour,

Pour ma part, je n'aurais pas lié la liste à la base complète.
Et, plutôt qu'utilisé du code pour appliquer les filtres, j'aurais utilisé une zone de filtre élaboré et j'aurais mis les critères directement sur la feuille Excel.

==> AdvancedFilter de l'objet Range

Espérant que cet indice t'aidera.

A+

[kodyone]

Bonjour,

Pour ma part, je n'aurais pas lié la liste à la base complète.
Et, plutôt qu'utilisé du code pour appliquer les filtres, j'aurais utilisé une zone de filtre élaboré et j'aurais mis les critères directement sur la feuille Excel.

==> AdvancedFilter de l'objet Range

Espérant que cet indice t'aidera.

A+

Ok bien reçu. Merci beaucoup pour votre contribution. Je ne maîtrise pas trop AdvanceFilter dans la procédure que je propose ici. C'est une ListView ce n'est pas une feuille Excel.
Merci qu'en même pour la proposition

[Lilou51]

Pour les filtres élaborés, c'est assez simple.

Vous avez un super tuto ici : https://philippetulliez.developpez.c...dvancedfilter/

Une fois lu en "Excel", la fonction d'enregistrement de macro vous permettra de l'avoir en VBA.

Vous pourrez ensuite définir votre zone de liste directement sur les éléments restitués par la zone filtrée (non pas sur la zone B7 : P xx, mais sur la "BDD" avec application des filtres), et rafraichir la zone de liste.

Enfin, ce serait mon choix... plutôt que de coder pour ce que Excel fait très bien.

Ainsi, il n'y a qu'une procédure, dès que changement sur un combobox => on appelle sur la procédure applicable à tous les combo.

La dite procédure dira
=> de compléter chacun des arguments pour chacun des filtres
=> + lancement du filtre avancé selon ces arguments
=> + mise à jour de la liste sur le USF.

[Nain porte koi]

plutôt que de coder pour ce que Excel fait très bien.

chouette un AMIS :-)