Autres Récupérer une date (sans formule) dans une Textbox

[chaelie2015]

Bonsoir Forum
je souhaite récupérer une date dans cellule vers TextBox, selon ce code ça marche pas.
.tbx_DateMESRéelle = Application.WorksheetFunction.VLookup(CLng(Me.cmbx_NuméroRéf), Sheets("BdD Projets").Range("source"), 10, 0)
NB: dans cette cellule (cellule dans la colonne 10 dans un tableau nommé source) il y a une formule.
MERCI par avance

 

[Staple1600]

Bonsoir

OK chez moi

Private Sub UserForm_Initialize()
ComboBox1.List = Array(1600, 1601, 1602, 1603)
End Sub
Private Sub ComboBox1_Change()
TextBox1 = CDate(Application.VLookup(ComboBox1.Value * 1, [Staple], 10, 0))
End Sub

 

[chaelie2015]

Bonsoir plutôt Bonjour
merci JM pour la réponse.
souci résolu
a+