Combobox à partir d'une colonne

bonjour à tous, :Dvoilà 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:

---

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

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

Bonjour

Code:

---

1 2 3

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

---

Bonjour tlm,

Une autre possibilité en utilisant RowSource

Code:

---

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

---

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

Code:

---

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,:marteau: donc j'ai essayé mais cela ne marche pas, donc j'en reviens à vous:help:

euh,j'ai pas trop compris la question :aie:

ma combobox a une liste qui prend sa source dans un tableau sur une feuille excel,
malheureusement, j'ai des noms qui s'affichent plus d'une fois sur ma feuille, et donc j'ai dans ma liste de combobox des noms identiques en plusieurs exemplaires.

Ce sont des doublons (à moins que je me trompe de terminologie:aie:), et je sais qu'il y a une formule en programmation qui permet de n'afficher un nom qu'une seule fois:bug:

c'est ce qu'il y a en gras mais ça ne marche pas, et au contraire, cela double les noms :calim2:
donc il doit y avoir un problème dans la formule

Mais laquelle:bug:

Bonjour,

Essaye come ceci:

Code:

---

1 2 3 4 5 6 7 8

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

---

cordialement,

Tirex28/

tu as changé

Code:

---

ComboBox1.AddItem Range("A" & j)

---

par

Code:

---

ComboBox1.Value Range("A" & j)

---

mais cela ne marche pas:bug:

merci quand même;)

Re,

Citation:

---

mais cela ne marche pas

---

Dsl j'avais oublié le "=":

Code:

---

1 2 3 4 5 6 7 8

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

---

Cordialement,

Tirex28/

Magnifique

ça fonctionne nickel:yaisse2:

merci à vous:king: