Stocker des valeurs dans une autre feuille
s
Bonjour, à l'aide d'une fonction je génère des valeurs qui sont sockées dans un tableau, et j'aimerais en fonction d'un paramètre récupérer une seule valeur du tableau. LA fonction est question est celle ci :
Public Function rw_renko_file(filepath As String, filename As String, _
H As Double) As Double()
On Error Resume Next 'tempo = erreur de capacité à gérer
' Generate paths
'Dim i_pathgen_obj As Long
'i_pathgen_obj = pub_pathgen_create(i_num_paths, i_path_length)
'Call pub_pathgen_gen_rw_collection(i_pathgen_obj, spot, tick_size, bias)
' Create and set the renko and statistics objects
Dim i_ts_obj As Long, i_obj As Long
i_ts_obj = pub_ren_create()
i_obj = pub_statren_create(i_ts_obj)
Dim paths() As Double, pathLength As Long
paths = GetPathByFileName(filepath & "\" & filename)
pathLength = UBound(paths) + 1
Call pub_stat_set_paths_collection__1(i_obj, paths(0), 1, pathLength)
'Call pub_stat_set_paths_collection__2(i_obj, i_pathgen_obj)
Call pub_stat_set_H(i_obj, H)
' Get the average and stdev of Hvols and PnLs
Dim av_Hvol As Double, std_Hvol As Double, av_PnL As Double, std_PnL As Double
Call pub_stat_calc_average_Hvol_and_PnL(i_obj, av_Hvol, std_Hvol, av_PnL, std_PnL)
' Get the average and stdev of renko-autocorrels
Dim av_renko_ac As Double, std_renko_ac As Double, av_path_ac As Double, std_path_ac As Double
Call pub_statren_calc_av_renkoRW_autocorrels(i_obj, av_renko_ac, std_renko_ac, av_path_ac, std_path_ac)
' Output results
Dim res(0 To 7) As Double
res(0) = av_Hvol / H
res(1) = std_Hvol / H
res(2) = av_PnL
res(3) = std_PnL
res(4) = av_renko_ac
res(5) = std_renko_ac
res(6) = av_path_ac
res(7) = std_path_ac
' Delete objects
Call pub_statren_destroy(i_obj)
Call pub_ren_destroy(i_ts_obj)
'Call pub_pathgen_destroy(i_pathgen_obj)
rw_renko_file = res
End FunctionJe désires récupérer la première valeur du tableau res(), i.e res(0), en fonction des H, défini comme paramètre de la fonction rw_renko_file(.,.,H).
Et tout ceci dans une autre feuille du classeur. Si vous connaissez la manière de le faire elle est la bienvenue et si vous désirez plus d'explications ou le fichier complet n'hésitez pas.
En vous remerciant.
Bonjour
simonamz a écrit :si vous désirez plus d'explications ou le fichier complet n'hésitez pas.
C'est même nécessaire ! (au moins le fichier dans un 1er temps)
Amicalement
Nad