remplir combobox sans doublon

[Cora]

Bonjour
Je voudrais remplir une combobox. j'ai les données dans la colonne E de mon fichier mais elle sont répétées plusieurs fois et je voudrais qu'elles n'apparaissent qu'une seule fois dans mon combobox.
Que dois-je rajouter dans mon programme ci-dessous pour qu'elles ne se répètent pas?

Private Sub ComboBox4_Change()
Dim nom As Variant
With Worksheets('EPCI')
nom = .Range('E1:E238')
End With
ComboBox4.List = nom
End Sub

Merci de votre aide

 

[Robert]

Bonjour Cora, bonjour le forum,

La méthode préconisée par les experts de ce forum pour une ComboBox sans doublons est de passer par une Collection. En pièce jointe un exemple avec cette méthode. J'espère que je ne me suis pas planté... [file name=Cora.zip size=11726]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Cora.zip[/file]

 

[Cora]

Merci Robert
par hasard sais-tu comment remplir une listbox ou un combobox de même données que le premier mais sans l'élément sélectionné?

 

[Robert]

Bonjour Cora, bonjour le forum,

En pièce jointe une proposition. [file name=Cora_v2.zip size=13139]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Cora_v2.zip[/file]

 

[Cora]

Merci Robert ça marche très bien