XL 2016 Problème de format combobox

[eric72]

Bonjour,
Je rencontre un problème quand je saisie une date dans une combobox liée à une liste l’affichage se fait sous forme de chiffe « 40340 » au lieu d’afficher la date
Avez vous une solution pour éviter cela.
Merci de votre aide

 

[mapomme]

Bonjour @eric72,
Sans code, sans exemple, sans fichier et en l'absence de Mme Irma et de sa boule de cristal:
Essayez peut-être:

Sub test()
   Range("a1").NumberFormat = "dd/mm/yyyy"
   Range("a1") = 40340
End Sub

 

[eric72]

Bonjour @eric72,
Sans code, sans exemple, sans fichier et en l'absence de Mme Irma et de sa boule de cristal:
Essayez peut-être:

Sub test()
   Range("a1").NumberFormat = "dd/mm/yyyy"
   Range("a1") = 40340
End Sub

Re bonjour,

Oh là désolé je vous joins donc mon fichier.
Je débute en VBA et donc pas très au courant de toutes les astuces.
Merci pour votre aide.
Eric

 

[mapomme]

Re,

Essayez :

Private Sub cboRecherche_Click()
   cboRecherche = Format(cboRecherche, "ddd dd mmm yyyy")
End Sub

 

[eric72]

Bonjour @eric72,
Sans code, sans exemple, sans fichier et en l'absence de Mme Irma et de sa boule de cristal:
Essayez peut-être:

Sub test()
   Range("a1").NumberFormat = "dd/mm/yyyy"
   Range("a1") = 40340
End Sub

Re,

Essayez :

Private Sub cboRecherche_Click()
   cboRecherche = Format(cboRecherche, "ddd dd mmm yyyy")
End Sub

Bonjour,

Ca fonctionne très bien, merci beaucoup pour votre aide précieuse.
Bonne journée
Eric