Insertion de valeur issue de macro dans une textbox ou userform

Bonjour,

J'ai une macro où je récupère quelques informations. Je souhaite que ces infos aillent dans une textbox présente dans une userform.

Mais je n'arrive pas à faire cela... 😕

-------------------------------------------------------------------------------
Public Test As Byte
Sub controle_presence()

' Macro pour vérifier la présence de demande déjà en cours
' Macro enregistrée le 16/08/2011 par Sébastien

Dim TR As String
Dim SE As String
Dim NUM As String
Dim bi As String


Sheets("DEMANDE").Select
TR = CStr(Range("J5"))
SE = CStr(Range("M5"))
NUM = CStr(Range("Q5"))
bi = CStr(Range("V5"))

Test = Evaluate("=sum((TRANCHE=""" & TR & """)*(SYSTEME_ELEMENTAIRE=""" & SE & """)*(NUMERO=""" & NUM & """)*(BIGRAMME=""" & bi & """)*(DATE_POSE=""""))*1")
DateDem = Evaluate("=index(DATE_DEMANDE,match(1,(TRANCHE=""" & TR & """)*(SYSTEME_ELEMENTAIRE=""" & SE & """)*(NUMERO=""" & NUM & """)*(BIGRAMME=""" & bi & """)*(DATE_POSE=""""),0))")
NumDem = Evaluate("=index(NUMERO_DEMANDE,match(1,(TRANCHE=""" & TR & """)*(SYSTEME_ELEMENTAIRE=""" & SE & """)*(NUMERO=""" & NUM & """)*(BIGRAMME=""" & bi & """)*(DATE_POSE=""""),0))")
NomDem = Evaluate("=index(DEMANDEUR,match(1,(TRANCHE=""" & TR & """)*(SYSTEME_ELEMENTAIRE=""" & SE & """)*(NUMERO=""" & NUM & """)*(BIGRAMME=""" & bi & """)*(DATE_POSE=""""),0))")

If Test = 1 Then
MsgBox "Demande déjà cours." & Chr(10) & "Numéro demande : " & NumDem & Chr(10) & "Date demande : " & DateDem & Chr(10) & "Demandeur : " & NomDem
Range("A5") = DateDem
Range("A6") = NumDem
Range("A7") = NomDem
DEMANDE_EXISTANTE.Show

End If

End Sub

---------------------------------------------------------------------------

La Userform s'appelle DEMANDE_EXISTANTE.
J'aimerais rapatrier les variables DateDem, NumDem et NomDem dans cette userform... Mais comment faire ?

Merci d'avance et bonne soirée !!!!!!!😱