Discussion :

[GTbenj]

bonjour à tous, voilà j'ai une combobox, et j'aimearis que dans ma liste apparaissent ce que j'ai mis dans la colonne A,
voilà mon code, mais il ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
    Dim j As Integer
 
    'Récupère les données de la colonne A...
    For j = 1 To Range("A65536").End(xlUp).Row
        ComboBox1 = Range("A" & j)
   next j
  end sub

et dans ma liste, je n'ai qu'une possibilité parmi les 6 noms que j'ai mis dans ma colonne??

voilà, je débute en vba donc je galère un peu

[supersnail]

Exécute en mode pas-à-pas pour voir le fonctionnement..
PS : Pense à la balise [code] (le # dans la barre de format)

[Jean-Pierre49]

Bonjour

Code :

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

1
2
3
For j = 1 To Range("A65536").End(xlUp).Row
ComboBox1.AddItem Range("A" & j)
Next j

[fring]

Bonjour tlm,

Une autre possibilité en utilisant RowSource

Code :

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

ComboBox1.RowSource = "A1:A" & Cells(Rows.Count, 1).End(xlUp).Row

[GTbenj]

merci, les 2 formules fonctionnent parfaitement mais par contre j'ai des doublons, et j'ai donc utilisé la formule de la doc de silkyroad

Code :

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

1
2
3
4
5
6
7
8
9
10
11


Private Sub UserForm_Initialize()
Dim j As Integer

For j = 1 To Range("A65536").End(xlUp).Row
ComboBox1.AddItem Range("A" & j)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("a" & j)
Next j
End Sub

voilà, j'ai regardé les autres post mais je ne comprends pas tout, donc j'ai essayé mais cela ne marche pas, donc j'en reviens à vous