Combobox dans formulaire

bonjour Yvan,

voie sur ce lien,
http://groups.google.com/groups?hl=fr&lr=&threadm=OjHtdE2wEHA.1204%40TK2MSFTNGP10.phx.gbl&rnum=4&prev=/groups%3Fq%3Dcombobox%2Bdoublon%2Bgroup:microsoft.public.fr.excel%26hl%3Dfr%26lr%3D%26scoring%3Dd%26selm%3DOjHtdE2wEHA.1204%2540TK2MSFTNGP10.phx.gbl%26rnum%3D4

isabelle

Bonjour,

Je dispose d'une Combo box dans un formulaire et rencontre le problème
suivant :
La Combo est alimentée à partir d'une liste dans laquelle il y a des doublons.

Comment faire pour ne faire apparaitre que des éléments uniques dans le
Combo ???

De Alain Valon et Daniel Maher :
http://www.excelabo.net/xl/controles.php#combodoublon

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 18/04/2005 18:50, :

Bonjour,

Je dispose d'une Combo box dans un formulaire et rencontre le problème
suivant :
La Combo est alimentée à partir d'une liste dans laquelle il y a des doublons.

Comment faire pour ne faire apparaitre que des éléments uniques dans le
Combo ???

Salut Yvan,
En utilisant une collection avant de façon à faire le tri :

Private Sub UserForm_Initialize()
Dim Col As New Collection
Dim Plage As Range
Dim I As Integer

With Worksheets("Feuil1")
Set Plage = .Range(.[A1], .[A65536].End(xlUp))
End With

On Error Resume Next
For I = 1 To Plage.Count
Col.Add Plage(I), CStr(Plage(I))
Next I

For I = 0 To Col.Count
ComboBox1.AddItem Col(I)
Next I

Set Col = Nothing
Set Plage = Nothing
End Sub

Hervé.

"Yvan" <Yvan@discussions.microsoft.com> a écrit dans le message news:
46053B6E-4DD9-42FE-B151-5C4CCC9E5963@microsoft.com...

Bonjour,

Je dispose d'une Combo box dans un formulaire et rencontre le problème
suivant :
La Combo est alimentée à partir d'une liste dans laquelle il y a des
doublons.

Comment faire pour ne faire apparaitre que des éléments uniques dans le
Combo ???
--
Merci pour vos réponses.