ComboBox en Date

[zeltron24]

Bonsoir le Forum,

Dans une feuille j'ai un ComboBox intitulé "CmdAfficher" dans la liste se trouve des dates
Lorsque je sélectionne une date j'inscrit les données correspondante, mais le souci est que lorsque je quitte le comboBox celui ci me note un chiffre (ex: Date : 28/09/13 donne 41545)
Comment faire pour avoir la date en Format("jjj-jj-mmm-aa") dans le combo
Merci d'avance pour votre aide

PS: J'ai fait des recherches sur le net mais je n'ai trouvé que des réponses concernant les combo dans des formulaires

 

[JCGL]

Re : ComboBox en Date

Bonjour à tous,

Peux-tu essayer :

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1, "ddd dd mmmm yyyy")
End Sub

A+ à tous

 

[zeltron24]

Re : ComboBox en Date

Bonsoir JCGL

Super un grand merci ça fonctionne correctement

Bonne soirée

 

[zeltron24]

Re : ComboBox en Date

Bonjour le forum,

Je reviens sur le sujet car depuis ce matin, je n'arrive plus à retrouver mes données en sélectionnant une date dans le combobox hors hier en quittant excel cela fonctionné.
Ci joint le fichier

 

[JCGL]

Re : ComboBox en Date

Bonjour à tous,

Set R = Enregist.[A:A].Find(CmbAfficher, , , 1) ne renvoie rien...

A+ à tous

 

[zeltron24]

Re : ComboBox en Date

Salut JCGL

Oui j'ai vu en mettant un point d'arret sur la ligne
Effectivement c'est pour cela que je fais appel à vos connaissances car je pense qu'il sagit de la mise en forme des dates ???
Lorsque je mets en format Standard cela fonctionne

 

[Modeste geedee]

Re : ComboBox en Date

Bonsour®
CmbAfficher restitue un texte...
essaie :
Set R = Enregist.[A:A].Find(Cdbl(CmbAfficher), , , 1)

 

[zeltron24]

Re : ComboBox en Date

Bonjour Modeste geedee

Le problème n'est pas résolu ça ne fonctionne pas.

 

[Si...]

Re : ComboBox en Date

salut

Bonjour Modeste geedee

Le problème n'est pas résolu ça ne fonctionne pas.

alors essaie

Set R = Enregist.[A:A].Find(CDate(CmbAfficher), , , 1)

 

[Docmarti]

Re : ComboBox en Date

Bonjour.

Si le paramètre What est de type date, le paramètre LookIn ne peut pas être xlValues quand la propriété NumberFormat de la cellule n'est pas m/d/yyyy.

Set rg = Enregist.[A:A].Find(what:=CDate(CmbAfficher), LookIn:=xlFormulas, LookAt:=xlWhole, SearchFormat:=False)

Cordialement

Docmarti