Insertion de valeur issue de macro dans une textbox ou userform

seb26000 · 19 Août 2011

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 !!!!!!!

Grand Chaman Excel · 19 Août 2011

Re : Insertion de valeur issue de macro dans une textbox ou userform

Bonjour,

Deux choses pour commencer :
1) si tu pouvais joindre un fichier ce serait plus simple de visualiser ton code, voir l'ensemble et pouvoir tester nos propositions
2) utilise les balise CODE dans ton message pour rendre ton code plus lisible.

Ceci étant dit, il faut probablement que tu passes par la fonction USERFORM_INITIALIZE.
Quelque chose du genre :

Code:

Private Sub Userform_Initialize()
With Demande_Existante
    .TextBox1 = Range("A5") 'DateDem
    .TextBox2 = Range("A6") 'NumDem
    .TextBox3 = Range("A7") 'NomDem
End With
End Sub

A tester
A+

seb26000 · 19 Août 2011

Re : Insertion de valeur issue de macro dans une textbox ou userform

Merci Grand Chaman !

Tu as raison j'aurais du attacher le fichier. Donc je le fais maintenant. J'ai adapté ton code et cela marche tres tres bien !!!
Peux tu me dire ce que tu en penses ?

Merci encore !!!

Grand Chaman Excel · 19 Août 2011

Re : Insertion de valeur issue de macro dans une textbox ou userform

Bonjour,
Tout m'a l'air ok.

Au plaisir.

seb26000 · 19 Août 2011

Re : Insertion de valeur issue de macro dans une textbox ou userform

Merci encore !

Insertion de valeur issue de macro dans une textbox ou userform

seb26000

XLDnaute Occasionnel

Grand Chaman Excel

XLDnaute Impliqué

seb26000

XLDnaute Occasionnel

Pièces jointes

Grand Chaman Excel

XLDnaute Impliqué

seb26000

XLDnaute Occasionnel

Discussions similaires