élément unique dans une combobox

Bonjour,
je souhaite remplir une combobox avec les éléments d'une colonne d'un tableau excel.
Le problème est que cette colonne contient certains éléments en plusieurs exemplaires et je voudrais qu'ils ne soient mis qu'une seul fois dans la combobox.

est-ce possible ???

Bonjour,

La réponse se trouve dans la FAQ

Comment remplir une ComboBox sans doublon ?
.

Merci, je l'avais pas vu...:king:

par contre, une question en amenant une autre:D,
la colonne ou je prend les éléments va de la ligne 7 à ???.
Comment le lui dire ?

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Activate() For Each Cell In numerosaff.Range(Cells(7, 7), Cells(???, 7)) facmultinumaff.nomclient = Cell 'remplissage sans doublon If facmultinumaff.nomclient.ListIndex = -1 Then _ facmultinumaff.nomclient.AddItem Cell Next Cell End Sub

---

Code:

---

For Each Cell In numerosaff.Range(Cells(7, 7), Cells(Cells(Rows.Count, 7).End(xlUp).Row, 7))

---

numerosaff est bien le CodeName de la feuille ? (pas le Name mais le CodeName)

:merci:
merci, c'est parfait:king:

oui, c'est bien le (Name) de la feuille.

:aie:
ça marchait très bien dans un module de test seul, mais cela ne marche plus une fois intégré dans le code complet !!! :cry:

sur cette ligne :

Code:

---

For Each Cell In numerosaff.Range(Cells(7, 7), Cells(Cells(Rows.Count, 7).End(xlUp).Row, 7))

---

j'ai l'erreur 1004 :

Citation:

---

La méthode 'Range' de l'objet '_Worksheet' échoué

---

lorsque cela plante :
xlUp=-4162 8O
Rows.Count=65536

Saurais-tu pourquoi ?

J'ai résolu mon problème, mais je ne comprend pas vraiment comment...

j'ai juste rajouté :

Code:

---

1 2	numerosaff.Activate For Each Cell In numerosaff.Range(Cells(7, 7), Cells(Cells(Rows.Count, 7).End(xlUp).Row, 7))

---

Maintenant ça marche mais j'aimerai bien comprendre pourquoi il fallait que ma feuille soit active ???:marteau:

Tu dois activer ta feuille parce que tu n'as pas préciser la feuille des "Cells" et il prend donc par défaut la feuille active

Code:

---

For Each Cell In numerosaff.Range(numerosaff.Cells(7, 7), numerosaff.Cells(Rows.Count, 7).End(xlUp))

---