Discussion :

[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 :

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 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

re,

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

Code :

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

1
2
3
4
5
6
7
8
Private Sub ComBox2_Change()
...................................................
   
    For i = 1 To oCollection.Count
        ComBox3.AddItem oCollection.Item(i)
    Next i
 ...................................   
End Sub

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

JP014

[stéphanie123]

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 :

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

 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