Affichage d'une date dans un combobox

Bonjour à tous,

Dans un UserForm, j'ai deux ComboBox qui me servent pour lister des dates.

Seulement voila, la date sélectionnée n'est pas affichée correctement, mais sous forme d'un numéro de série.

Par exemple, au lieu d'afficher 20/06/2012 elle affiche 40180.

Comment résoudre ce problème ?

Merci.

Bonjour,

Une solution consiste à manipuler l'affichage via l'évenement Change de la combobox

Code:

---

1 2 3

Private Sub ComboBox1_Change() ComboBox1.Value = Format(ComboBox1.Text, "dd/mm/yyyy") End Sub

---

Bonsoir jfontaine,

Ça marche.

Merci.

Bonjour,

Un autre problème :

Quand je voudrais afficher un élément de la ComboBox à l'initialisation d'un userform, j'aurais un chiffre au lieu d'une date :

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() ComboBox1.ListIndex = 3 ComboBox2.ListIndex = 3 End Sub

---