trois combox pour filtrer

[stéphanie123]

re,

J'ai fais un programme pour filtrer dans une base de donnée, jusque là tout vas bien ,,,
le souci et quans je filtre avec le combox1 sa me remplie bien celui ci, quand je filtre sur le combox2 sa me filtre le combox1 et sa m'ajoute bien les données dans le combox 2 mais quand je filtre le combox3 sa me filtre pas les donnée du combox1 et 2 mais seulement le combox1 conséquence sa me remplie le combox3 de toutes les donnée du combox1 ,,,

Je sais pas s'y j'étais clair,,,,

Mais je reste persuader que mon erreur vient du remplissage du combox 2
que voici d'ailleur,,,,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub ComBox2_Change()
 
    Dim oCollection As New Collection
    Dim i As Long
    Dim Balan As Range
 
    ComBox3.Clear
 
 
    ' Itération sur chaque cellule de c et appel de la procédure d'ajout
    For Each Balan In Feuil2.Range("c11:c" & Feuil2.Range("c" & Rows.Count).End(xlUp).Row)
        If Balan(1, 0).Value = ComBox2.Value Then AjouterItem oCollection, Balan.Value
    Next Balan
 
 
    For i = 1 To oCollection.Count
        ComBox3.AddItem oCollection.Item(i)
    Next i
 
End Sub

[jp014]

Bonjour

Envoyé par stéphanie123

re,

Mais je reste persuader que mon erreur vient du remplissage du combox 2
que voici d'ailleur,,,,

Code :

J'ai l'impression que le code ne correspond pas à la demande.

JP014

[stéphanie123]

Envoyé par jp014

Bonjour



J'ai l'impression que le code ne correspond pas à la demande.

JP014

le code me parrait bon, mais quand je filtre sur le combox 3 cela me remplie celui ci avec tous mes données et sa ne me filtre pas par rapport au combox 1

y a til des personne qui ont déjà rencontré ce probléme

[jp014]

Bonjour

Une question

Code :

 If Balan(1, 0).Value = ComBox2.Value Then AjouterItem oCollection, Balan.Value

Quelle est la signification de l'écriture "Balan(1, 0) ", si on désire remplir par comparaison à la colonne B il faudrait écrire "Balan.offset(0,-1)".

JP014