Probleme date

Bonjoir/bonsoir

je commence un nouveau projet de gestion de suivi de véhicule de location

je rencontre un tout petit probleme je pense pour vous.

j'ai des données dans excel et quand je choisis une ligne dans la list box, celle-ci renvoi les données.

tout est ok sauf pour les dates qui sont en brut 46381 par exemple.

comment faire pour la changer en date "dd/mm/yyyy"

jai essayer des format (madate , "dd mm yyyy") mais ça change rien.

j'ai toujours utiliser dtpicker pour l'inscrire mais là c'est de la recup d'info et je coince

merci pour votre aide

Bonjour,

à tester,

Private Sub lstcamion_Click()
Dim NumLigne As Integer

lstvoiture.ListIndex = -1

'partie contrat
NumLigne = Me.lstcamion.ListIndex 'trouver N° de la ligne selectionner dans la listebox
Me.txt_marque.Value = Me.lstcamion.Column(2, NumLigne)
Me.txt_modele.Value = Me.lstcamion.Column(1, NumLigne)
Me.txt_immat.Value = Me.lstcamion.Column(0, NumLigne)
Me.txt_de.Value = CDate(Me.lstcamion.Column(3, NumLigne))  '<-------------modification ici
Me.txt_ds.Value = CDate(Me.lstcamion.Column(4, NumLigne))  '<-------------modification ici
Me.txt_duree_contrat.Value = Me.lstcamion.Column(7, NumLigne)
Me.txt_km_contrat.Value = Me.lstcamion.Column(8, NumLigne)

'partie suivie
Me.txt_jour_releve.Value = Sheets("camion").Range("J1")
Me.txt_km_releve.Value = Me.lstcamion.Column(9, NumLigne)
End Sub

ps/ il faut faire de même pour la macro Private Sub lstvoiture_Click()

Me.txt_de.Value = CDate(Me.lstvoiture.Column(3, NumLigne))
Me.txt_ds.Value = CDate(Me.lstvoiture.Column(4, NumLigne))

Bonjour

super, juste simple une fois compris, j'avais essayer avec format mais pas penser à CDate.

encore merci