doublons dans un combobox

[marco]

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.

Private Sub UserForm_Initialize()
Dim datadate As Collection
Dim c As Range
Dim i As Byte

Set datadate = New Collection

On Error Resume Next

For Each 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

End Sub

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

 

[marco]

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