XL 2016 [RESOLU]Format jjj jj mmmm aaaa issu d'un dtpicker dans excel

louatt · 25 Juillet 2018

Bonjour à tous,

pour me faciliter la saise de date dans excel je met un activex DTPICKER et met en référence la cellule D2.

Cette cellule je lui met un format personnalisée jjjj jj mmmm aaaa mais le format ne s'applique pas.
Si je saisie une date manuellement 25/07/2018 alors le format personnalisé s'applique.

Le résultat renvoyé du DTPICKER est au format texte? voila pourquoi le format personnalisé ne s'applique pas?
Comment remédier à cela ?

Par avance merci pour vos lumières.

Cordialement.

fanfan38 · 25 Juillet 2018

Bonjour,
range("d2").value=cdate(dtpicker)....
A+ François

louatt · 25 Juillet 2018

Bonsoir Fanfan38,

merci pour ta réponse, mais où dois je mettre ce code?

J'ai essayé ça dans le code de la feuille mais marche pas

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
'Range("d2").Value = CDate(DTPicker1)
Range("d2").Value = Format(DTPicker1, "dd mmmm yyyy")

End Sub

Cordialement.

fanfan38 · 25 Juillet 2018

Je mettrai plutôt dans le code de la feuille
Private Sub DTPicker1_Change()
Range("d2").Value = CDate(DTPicker1.Value)
End Sub

louatt · 25 Juillet 2018

Re Fanfan38 merci,

mais ça ne fonctionne pas, le format reste 25/07/2018

Merci

fanfan38 · 25 Juillet 2018

La cellule b2 n'était pas formatée...
A+ François

louatt · 25 Juillet 2018

Re bonsoir Fanfan38,

je suis vraiment désolé de t'avoir fait perdre ton temps, effectivement j'avais mis en format ma cellule b3, grrrr

encore désolé, et encore merci pour ta précieuse aide qui est trés constructive.

Cordialement.

XL 2016 [RESOLU]Format jjj jj mmmm aaaa issu d'un dtpicker dans excel

louatt

XLDnaute Junior

Pièces jointes

fanfan38

XLDnaute Barbatruc

louatt

XLDnaute Junior

fanfan38

XLDnaute Barbatruc

louatt

XLDnaute Junior

fanfan38

XLDnaute Barbatruc

Pièces jointes

louatt

XLDnaute Junior

Discussions similaires