Discussion :

[skorpio]

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 aussi

[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+

[Kikumaru]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
LaPlage = Range("A1:A" & NoDerniereLig).address(false, false)
Combo.clear
Combo.RowSource = LaPlage

Pense à renseigner NoDerniereLig
A+

[skorpio]

Merci Infiniment à vous tous
ça marche