E eric72 XLDnaute Accro 16 Septembre 2019 #1 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
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 16 Septembre 2019 #2 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 Vote positif 0 Vote négatif
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
E eric72 XLDnaute Accro 16 Septembre 2019 #3 mapomme à dit: 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 Cliquez pour agrandir... 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 Pièces jointes Saisie CA.xlsm 44.8 KB · Affichages: 11 Vote positif 0 Vote négatif
mapomme à dit: 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 Cliquez pour agrandir... 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 XLDnaute Barbatruc Supporter XLD 16 Septembre 2019 #4 Re, Essayez : VB: Private Sub cboRecherche_Click() cboRecherche = Format(cboRecherche, "ddd dd mmm yyyy") End Sub Pièces jointes eric72- Saisie CA- v1.xlsm 37.8 KB · Affichages: 6 Vote positif 0 Vote négatif
Re, Essayez : VB: Private Sub cboRecherche_Click() cboRecherche = Format(cboRecherche, "ddd dd mmm yyyy") End Sub
E eric72 XLDnaute Accro 17 Septembre 2019 #5 mapomme à dit: 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 Cliquez pour agrandir... mapomme à dit: Re, Essayez : VB: Private Sub cboRecherche_Click() cboRecherche = Format(cboRecherche, "ddd dd mmm yyyy") End Sub Cliquez pour agrandir... Bonjour, Ca fonctionne très bien, merci beaucoup pour votre aide précieuse. Bonne journée Eric Vote positif 0 Vote négatif
mapomme à dit: 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 Cliquez pour agrandir... mapomme à dit: Re, Essayez : VB: Private Sub cboRecherche_Click() cboRecherche = Format(cboRecherche, "ddd dd mmm yyyy") End Sub Cliquez pour agrandir... Bonjour, Ca fonctionne très bien, merci beaucoup pour votre aide précieuse. Bonne journée Eric