Format date

Bonjour, toutes et tous,

Le code ci-dessous me donne la date au format 11/06/2015 au passage de la souris

et je souhaiterais avoir

Format souhaité

'= Format(Date, "jj-mm-aaaa")

Private Sub TBDateDébut_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
          Me.TBDateDébut.Value = Date 
    End Sub

Merci de votre aide encore une fois

Amicalement

Pierrot

Bonjour Pierrot,

As-tu testé :

Private Sub TBDateDébut_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
          Me.TBDateDébut.Value = Format(Date, "dd-mm-yyyy")
End Sub

Bonjour James,

C'est parfait, j'avais tenté mais sans succès avec les jj-mm-aaaa

Dans le même ordre d'idée, affecter un format nombre à un ComboBox?

Me.CbbMatricule_Ory = .Range("C" & Ligne).Value.'  Format "40.03.01-2015"

Merci de ton aide

bisous

amitiés

Pierrot

Re,

Content que cela fonctionne ...

Merci pour tes remerciements ...