trois combox pour filtrer
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 |