Remplir un Combobox?

Version imprimable

13/06/2007, 16h04
skorpio

Remplir un Combobox?

Bonjour à tous...

Comme mon titre l'indique, je souhaiterai remplir un combobox.

En fait mon problème est simple j'ai un liste dans le colonne A de ma feuille excel et je souhaiterai que cette liste aparaisse dans mon Combobox!!
(Sachant que mon combobox est situé dans un Userform)

Le problème est que ma liste n'est pas toujours la même. Elle peut être composé de 5 lignes comme de 10 lignes, en fait pour être clair mon combobox c'est ma liste en gros. Si ma liste change mon combobox aussi8O
13/06/2007, 16h27
alex.a

Salut

regarde ce post j'ai eu le même problème
http://www.developpez.net/forums/sho...d.php?t=357964

la partie en gras devrait t'intéressé ;)

A+

Au cas ou pour le cas des doublons (j'ai pas vu de réponse sur la demande d'alex) j'avais écrit ca (code complet pour remplir sans doublons)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub userform_initialize()    
    iL = Cells(65535, 1).End(xlUp).Offset(1).Row
    'recupere le nombre de lignes remplies sur la colonne A
 
    For i = 2 To (iL - 1)
        ComboBox1 = Range("A" & i)
        If ComboBox1.ListIndex = -1 Then
        ComboBox1.AddItem Range("A" & i)
        'Si l'element n'est pas dans la liste du ComboBox on l'y ajoute
 
        End If       
    Next i
End Sub

13/06/2007, 19h10
ouskel'n'or
Tu peux également utiliser RowSource en adaptant la plage de ta liste aux cellules concernées.
Précaution à prendre avant de renseigner ton combo, le nettoyer
Code:

1 2 3 LaPlage = Range("A1:A" & NoDerniereLig).address(false, false) Combo.clear Combo.RowSource = LaPlage
Pense à renseigner NoDerniereLig ;)
A+
14/06/2007, 10h36
skorpio

Merci Infiniment à vous tous:D
ça marche