Discussion :

[stéphanie123]

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

[rvtoulon]

Bonsoir,
voici un code qui devrait faire l'affaire

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
Private Sub UserForm_Initialize()
Dim i As Long
 
With Sheets("Feuil4")
 
  For i = 1 To .Range("A65000").End(xlUp).Row
    ComBox1.AddItem (.Range("A" & i).Value)
  Next i
 
  For i = 1 To .Range("C65000").End(xlUp).Row
    ComBox2.AddItem (.Range("C" & i).Value)
  Next i
 
  For i = 1 To .Range("D65000").End(xlUp).Row
    ComBox3.AddItem (.Range("D" & i).Value)
  Next i
End With
End Sub

dans ce code je n'utilise pas de collection, j'inscris directement les valeurs des colonnes dans les combobox.

A+

[stéphanie123]

BONJOUR,

La solution qui m'a été proposée résoud le problème des saut de colonnes , le problème auquels je dois faie face et de supprimer les doublons dans le combox 1, mais aussi de filtrer sur les deux combox précédent,,
c'est àdire faire à paraitre dans le combox 3 le filtre du combox 2 et du combox 1 tâche la plus dificile à mes yeux.

[mercatog]

Bonjour,
un sujet similaire récenthttp://www.developpez.net/forums/d86...bobox-cascade/
Des recherches sur la FAQ, les tutos et le forum; souvent donne une aide précieuse