Trier date sur listbox
D
Bonjour à tous,
j'ai actuellement le code ci-dessous permettant de récupérer des dates dans un tableau
les dates sont bien remontées et cela sans doublons
J'aimerais cependant désormais pouvoir trier par ordre croissant les dates de ma listbox.
j'ai tenté de prendre la fonction tri trouvé sur internet (boigontier) mais à chaque fois j'ai une erreur d'exécution
Public Sub Listing_YEAR()
Set f = Sheets("projects")
Set MonDico = CreateObject("Scripting.Dictionary")
a = f.Range("G2:G" & f.[G65000].End(xlUp).Row).Value
For i = LBound(a) To UBound(a)
If a(i, 1) <> "" Then MonDico(a(i, 1)) = ""
Next i
Me.Projects_Year.List = MonDico.keys
Me.Projects_Year.ColumnCount = 1
Me.Projects_Year.ColumnWidths = "98"
End Subune petit aide serait appréciée
merci par avance
@+
J
Bonjour
Voir ci-dessous à adapter
https://www.gcexcel.com/trier-les-elements-dans-un-listbox/
Cordialement
D
merci à vous
j'ai réussi à adapter le code sans soucis
merci pour le partage
bonne journée