XL 2016 Problème de format combobox

eric72

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
Bonjour @eric72,
Sans code, sans exemple, sans fichier et en l'absence de Mme Irma et de sa boule de cristal:
Essayez peut-être:
VB:
Sub test()
   Range("a1").NumberFormat = "dd/mm/yyyy"
   Range("a1") = 40340
End Sub
 

eric72

XLDnaute Nouveau
Bonjour @eric72,
Sans code, sans exemple, sans fichier et en l'absence de Mme Irma et de sa boule de cristal:
Essayez peut-être:
VB:
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
 

Fichiers joints

eric72

XLDnaute Nouveau
Bonjour @eric72,
Sans code, sans exemple, sans fichier et en l'absence de Mme Irma et de sa boule de cristal:
Essayez peut-être:
VB:
Sub test()
   Range("a1").NumberFormat = "dd/mm/yyyy"
   Range("a1") = 40340
End Sub
Re,

Essayez :
VB:
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
 

Discussions similaires


Haut Bas