doublons dans un combobox

Bonjours à tous le forum
j'ai besoin de votre aide pour un probleme de doublons dans un combobox.
Mon combobox fait référence à la colonne A qui sont des dates et qui comporte des doublons, je ne peut pas supprimer les doublons de la feuille, par contre je voudrait que mon combobox n'affiche pas deux fois la même date. Est ce possible?

J'ai éssayer ça, mais c'est pas terrible
Date1 = mon combobox


DER = Application.CountA(Columns('a')) + 1
For x = 9 To DER
If Range('A' & x).Value = Range('A' & x - 1).Value Then x = x + 2
If Range('A' & x).Value <> '' Then Date1.AddItem (Range('A' & x).Value)
Next


Bonne soirée

[Hervé]

Bonsoir

Personnellement, pour trier une liste sans doublon, j'utilise la méthode des collections, rapide à mettre en place.mais il existe d'autres méthodes.

voir exemple en pièce jointe.

PrivateSub UserForm_Initialize()
Dim datadate As Collection
Dim c As Range
Dim i AsByte

Set datadate = New Collection

OnErrorResumeNext

ForEach c In Range('a1:a' & Range('a65536').End(xlUp).Row) '<==== a adapter
datadate.Add c.Text, c.Text
Next c

For i = 1 To datadate.Count
Date1.AddItem CDate(datadate(i))
Next i

EndSub

[file name=Classeur1_20050526210635.zip size=10250]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050526210635.zip[/file]

Un grand merci
ça marche nickel
heureusement que vous ète la.
merci hervé