Affichage d'une date dans une Combobox

[rlebigre]

Bonjour le Forum,

Voila j'ai un petit problème sur une ComboBox dans un UserForm.

Ma ComboBox pointe vers une liste de date. Je sélectionne la date au format jj/mm/aaaa. Une fois que j'ai séléctionné ma date elle s'affiche en nombre qui correspond au nombre de jour de décalage par rapport à la date de référence (01/01/1900).

Je ne sais pas comment faire pour garder l'affichage de la date en jj/mm/aaaa

Merci de l'aide que vous pourrez me donner

 

[ZZR09]

Tentative pour joindr le fichier exemple [file name=dates_20050711021650.zip size=8242]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dates_20050711021650.zip[/file]

Message édité par: zzr09, à: 11/07/2005 02:16

 

[ZZR09]

Voici le code contenu dans le fichier exemple joint.
il s'agit d'initialiser la ComboBox1 dès l'ouverture de la feuille UserForm en déclarant les items contenus dans la plage de cellules non vides de la colonne A (Feuil1).


Private Sub UserForm_initialize()

'variable pour l'adresse de la dernière cellule
Dim var As String

'initialisation de la variable : on se place en fin de liste et on mémorise l'adresse
var = Sheets('feuil1').Range('a1').End(xlDown).Address

'initialisation de la ComboBox1
ComboBox1.RowSource = 'a1:' & var

'pointage de ComboBox1
ComboBox1.SetFocus

End Sub