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

[louatt]

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]

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

 

[louatt]

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]

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

 

[louatt]

Re Fanfan38 merci,

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

Merci

 

[fanfan38]

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

 

[louatt]

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.