remplir des combox

Version imprimable

remplir des combox

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:

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

Bonsoir,
voici un code qui devrait faire l'affaire

Code:

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+

17/01/2010, 13h45
stéphanie123

REMPLIR DES COMBOX

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.
17/01/2010, 14h24
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