Format date de cellule vers texbox

[jAQUOT]

Bonjour
Débutant en VBA ,je bloque sur ce point.Je veux récuperer à partir d'une cellule la date dans un textbox ,ça marche mais je n'arrive pas à avoir le format date.
39840.6317 au lieu de 27/09/2009 .
Voici mon code:

TextBox5.Text = Application.VLookup(ComboBox4.Value, Sheets("Suivi").Range("A5:E30"), 2, 0)
Merci

 

[Guest]

Re : Format date de cellule vers texbox

Bonsoir,

Dim LaDate as variant
LaDate = Application.VLookup(ComboBox4.Value, Sheets("Suivi").Range("A5:E30"), 2, 0)
If not IsError(LaDate) then TextBox5=Format(LaDate,"dd/mm/yyyy")

La variable LaDate (variant obligatoire) est là au cas où la fonction ne trouverait rien et renverrait une valeur d'erreur.

A+

 

[jAQUOT]

Re : Format date de cellule vers texbox

Super ce forum,
🙂merci Hasco ça marche!