format date combobox

[gerard55]

Bonjour à tous
j'ai un combobox qui doit récupérer un format date. Il le fait très bien. Mais, quand je lance l'impression de la feuille où il y a le combobox le format du combobox se remet en numéro (le numéro de date d'excel).
Si quelqu'un a la solution merci d'avance
Je joins le fichier au cas ou ?
a +

 

[CB60]

Re : format date combobox

Bonjour
Il me semble que cela doit fonctionner??

Private Sub ComboBoxCharge_Change()
On Error Resume Next
ComboBoxCharge = Format(ComboBoxCharge, "dd/mmm/yyyy")
Range("A2") = Format(CDate(ComboBoxCharge), "dd/mmm/yyyy")
End Sub

 

[gerard55]

Re : format date combobox

Merci Bruno
j'ai fait l'essai ça marche nickel
a +

 

[job75]

Re : format date combobox

Bonjour Gérard, Bruno,

Et simplement en supprimant CDate ? :

Private Sub ComboBoxCharge_Change()
On Error Resume Next
ComboBoxCharge = Format(ComboBoxCharge, "dd/mmm/yyyy")
Range("A2") = ComboBoxCharge
End Sub

A+