Remplri combobox avec Dictionnaire et valeur date

[carlos]

Bonjour

j'ai une colonne(D) avec des date formatées en Now.
31/01/2014 14:22
31/01/2014 14:36
31/01/2014 14:42
14/02/2014 14:20
14/02/2014 14:21
14/02/2014 14:22
14/02/2014 14:22
14/02/2014 14:22

J'aimerais remplir ma combobox qu'avec les 2 dates
Dans mon cas , ce serait :
31/01/2014
14/02/2014
Voici le code :

Set Dico = CreateObject("Scripting.Dictionary")
For Each c In Feuil1.Range("d2", Feuil1.Range("d2").End(xlDown))
Val = DateValue(c.Value)
If Not Dico.Exists(Val) Then ComboDate.AddItem Val 'Dico.Add c.Value, c.Value
Next c
Pour le moment avec ce code toutes les dates sont intégrées au combobox.
Merci

Carlos

 

[Dranreb]

Re : Remplri combobox avec Dictionnaire et valeur date

Bonsoir.
Utilisez plutôt un autre nom que Val: c'est une fonction VBA. Par exemple Z (As String)

Z = Format(Int(c.Value),  "dd/mm/yyyy")

 

[carlos]

Re : Remplri combobox avec Dictionnaire et valeur date

Super .
Merci Dranreb