Meme format de cellule et de textbox

Bonjour

comment faire pour avoir un même format de cellule entre une cellule et un textbox!!!

exemple, quand je met dans la cellule A1 = aujourdhui() avec un format de cellule date longue - comment avec dans un textbox Dimanche mars 2016

TextBox1 = .Range("E2")

Merci d'avance

Bonjour

A tester

TextBox1 = Format(Range("E2"), "dddd dd mmm yyyy")

il me semble que pour la date

TextBox1.Value = Format(Date, "dddd mmmm yyyy")

pour les comparaisons, passe en .Text

TextBox1.Text=Range("E2").Text