Bonjour le forum.
Je suis actuellement en train de mettre en forme une combo box pour un fichier et je cale un peu concernant le format date des valeurs de la combobox de mon user form, j'ai donc besoin d'un coup de pouce.
Dans mon fichier j'ai une colonne de dates(bcp de doublons) sous le format mmm-yy (ex jan-12 ), que je voudrais répertorier dans une combobox d'un userform(pour permettre aux utilisateurs de sélectionner une date). J'ai réussi a "copier" un code trouvé sur ce forum pour répertorier les valeurs dans un dico puis le reverser dans la combobox(cela afin d'éliminer les doublons) . seul souci la combobox présente les valeurs en formats 31/XX/XXXX (ce sont les valeurs dans les cases) sans le format mmm-yy. Ci-dessous mon code et ci joint le fichier
Private Sub UserForm_Activate()
Dim dico, c
Set dico = CreateObject("Scripting.Dictionary")
For Each c In .Range("J5:J" & .[J65536].End(xlUp).Row)
If Not dico.Exists(c.Value) And c.Value <> "" Then _
dico.Add c.Value, c.Value
Next
ComboBox1.List = dico.items
End Sub
Ce que j'aimerai c'est que dans la combobox j'ai affiché jan-12, feb-12, .... à la place de 31/01/2012;29/02/2012.... Tout en gardant ci-possible la valeur (je veux juste que le format soit modifié).
En vous remerciant par avance,
Cordialement,
ARE
Je suis actuellement en train de mettre en forme une combo box pour un fichier et je cale un peu concernant le format date des valeurs de la combobox de mon user form, j'ai donc besoin d'un coup de pouce.
Dans mon fichier j'ai une colonne de dates(bcp de doublons) sous le format mmm-yy (ex jan-12 ), que je voudrais répertorier dans une combobox d'un userform(pour permettre aux utilisateurs de sélectionner une date). J'ai réussi a "copier" un code trouvé sur ce forum pour répertorier les valeurs dans un dico puis le reverser dans la combobox(cela afin d'éliminer les doublons) . seul souci la combobox présente les valeurs en formats 31/XX/XXXX (ce sont les valeurs dans les cases) sans le format mmm-yy. Ci-dessous mon code et ci joint le fichier
Private Sub UserForm_Activate()
Dim dico, c
Set dico = CreateObject("Scripting.Dictionary")
For Each c In .Range("J5:J" & .[J65536].End(xlUp).Row)
If Not dico.Exists(c.Value) And c.Value <> "" Then _
dico.Add c.Value, c.Value
Next
ComboBox1.List = dico.items
End Sub
Ce que j'aimerai c'est que dans la combobox j'ai affiché jan-12, feb-12, .... à la place de 31/01/2012;29/02/2012.... Tout en gardant ci-possible la valeur (je veux juste que le format soit modifié).
En vous remerciant par avance,
Cordialement,
ARE