bonsoir,

J'ai réalisée une boite de dialogue pour faire des requête (filtre) sur une base de donnée à partir d'un remplissage de combox, le probléme que je rencontre est que je n'arrive pas remplir mes différents combox car les colonnes que j'interroge ne sont pas les unes derrieres les autres.
Quelqu'un a t il déjà rencontré ce probléme?
voici mon code dans mon rogramme principal
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
Private Sub UserForm_Initialize()
    Dim Cellule As Range
    Dim Balan As Range
    Dim oCollection As New Collection
    Dim i As Long
 
    For Each Cellule In Feuil4.Range("a2:a" & Feuil4.Range("a" & Rows.Count).End(xlUp).Row)
        AjouterItem oCollection, Cellule.Value
     Next Cellule
 
      For i = 1 To oCollection.Count
        ComBox1.AddItem oCollection.Item(i)
    Next i
     For Each Balan In Feuil4.Range("c2:c" & Feuil4.Range("c" & Rows.Count).End(xlUp).Row)
        AjouterItem oCollection, Balan.Value
     Next Balan
 
    For i = 1 To oCollection.Count
        ComBox2.AddItem oCollection.Item(i)
    Next i
End Sub
en faite mon souci vient de la juxtaposition des colonnes avec lesquelles je remplies mes combox, remplir un combox1 avec la colonne A, combox2 colonne c et combox3 colonne d
voilà si quelqu'un peux m'éclairer,,