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