Carnage029
XLDnaute Occasionnel
Bonjour à tous, je viens une fois de plus vous demander de l'aide
J'ai une combobox qui est alimenté comme suit :
Et je souhaiterai que les proposition de la combobox date1combobox soit faite de manière bizarre,
Je vous explique, les proposition qui rentrent après l'alimentation sont toutes au format "jjmmaa" hors ce format n'est pas une date reconnue, je souhaiterai les trier, (il s'agit forcément de dates passés ou de la date d'auhourd'hui au plus récent) de la plus récente tout en haut des choix à la plus ancienne, la plus en bas du menu défilant
Je vous remercie encore, ce forum est vraiment bien pour progresser et apprendre à son rythme
J'ai une combobox qui est alimenté comme suit :
Code:
Dim MonRepertoire, fa, fe, x As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
chem = "C:\mondossier"
MonRepertoire = chem & importcombo.siglecombobox.Text
x = 1
For Each fa In fso.GetFolder(MonRepertoire).Files
lsigle = Len(importcombo.siglecombobox.Text)
ldevise = Len(importcombo.devisecombobox.Text)
fe = fa.Name
fe = Mid(fe, lsigle + ldevise + 5, 6)
importcombo.date1combobox.AddItem fe
x = x + 1
Next fa
Et je souhaiterai que les proposition de la combobox date1combobox soit faite de manière bizarre,
Je vous explique, les proposition qui rentrent après l'alimentation sont toutes au format "jjmmaa" hors ce format n'est pas une date reconnue, je souhaiterai les trier, (il s'agit forcément de dates passés ou de la date d'auhourd'hui au plus récent) de la plus récente tout en haut des choix à la plus ancienne, la plus en bas du menu défilant
Je vous remercie encore, ce forum est vraiment bien pour progresser et apprendre à son rythme