Format date de cellule vers texbox

jAQUOT · 27 Janvier 2011

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 · 27 Janvier 2011

Re : Format date de cellule vers texbox

Bonsoir,

Code:

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 · 27 Janvier 2011

Re : Format date de cellule vers texbox

Super ce forum,
🙂merci Hasco ça marche!

Format date de cellule vers texbox

jAQUOT

Guest

Guest

Guest

jAQUOT

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency