Discussion :

[tamtam64]

Bonjour,

je galère avec la fonction run dans une sub dans un userform.

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub Calculate_Button_Click()
    Dim MyVal As String
 
    Call GetValues ' une sub qui recupere des données pour completer le dico MyDicoParam
 
'Le nom de la sub selon le valeur qui est choisi dans le combobox
MyVal = Application.WorksheetFunction.Substitute(Me.Pricing_Name.Value, " ", "") & "PO"
    T = 90 ' MyDicoParam("StrikeDate") - Date 'jour ouvré?
Call ThisWorkbook.Application.Run("NewDatas." & MyVal, 1, MyDicoParam("UnderPrice"), MyDicoParam("Strike"), MyDicoParam("FreeRate") / 100, MyDicoParam("Vol") / 100, T)

Le nom de mon userform c'est NewDatas

Il n'arrive pas executer la sub que je veux utiliser avec le run, je sais le faire pour utiliser une sub dans un module mais il semble que dans un userform ca ne fonctionne pas .

Merci

[cerede2000]

Bonjour à toi,

Pourrais tu être plus précis quand tu dit qu'il n'arrive pas à exécuter la sub.
Tu as un message d'erreur ?
Que se passe t'il exactement ?

Pour info sur MSDN à propos de la fonction Run il est indiqué :

Les objets qui sont transmis à la macro en tant qu’arguments sont convertis en valeurs (en appliquant la propriété Value à l’objet). Cela signifie que vous ne pouvez pas passer d’objets aux macros à l’aide de la méthode Run.

Hors tu passe quasiment que des objets....

[Invité]

Bonsoir,
Je ne comprends pas, si tu veux utiliser un userform et si il s'appel NewDatas olors NewDatas.show.

Si tu veux utiliser un méthode avec passage de paramètres il faut déclarer une sub en public.

Code NewDatas :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Pubic sub Test(param as string)
Msgbox param
Me.show
 
Sub Main()
NewDatas.test "Toto"
End sub

[tamtam64]

D'accord donc je ne peux pas le faire à priori. J'ai mis ma sub dans un module du coup

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call ThisWorkbook.Application.Run("Sub_Pricing." & MyVal, OptionType, MyDicoParam("UnderPrice"), MyDicoParam("Strike"), MyDicoParam("FreeRate") / 100, MyDicoParam("Vol") / 100, T / 365)

Tempis donc on ne peux effectivement pas le faire

Merci en tout cas.

[Invité]

Un userform c'est une classe, pour accéder à un sub de la classe en dehors de la classe il faut déclarer cet sub en public.mais il faut appeler cette sub via une déclinaison de la classe.

MyUserForm.MYSubPublicJe ne vois pas le problème je pense que tu peux faire un run si tu décline bien la classe!

[Oliv-]

Salut
Pourquoi utilises tu Run et pas un call ?
Par défaut dans un userform une macro est précédée de private, pour la lancer d ailleur il faut qu elle soit PUBLIC.
On ne peut pas lancer directement un userform d un autre classeur, il faut avoir une macro dans un module du classeur contenant l userform