Discussion :

[zandru]

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 ???

[fring]

Bonjour,

La réponse se trouve dans la FAQ

Comment remplir une ComboBox sans doublon ?
.

[zandru]

Merci, je l'avais pas vu...

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

Code :

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

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

[fring]

Code :

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

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)

[zandru]

merci, c'est parfait

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

[zandru]

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

sur cette ligne :

Code :

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

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

j'ai l'erreur 1004 :

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

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

Saurais-tu pourquoi ?

[zandru]

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

j'ai juste rajouté :

Code :

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

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 ???

[fring]

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 :

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

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