Problème de réutilisation d'une fonction

Version imprimable

Bonjour,

Je souhaite réutiliser une fonction dans une procédure mais je bloque.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Function Period_since_valo()

'Déterminer le nombre de collonne du tableau dynamique
Dim x As Integer
 x = Cells(4, 2) * Cells(5, 2)
 
Dim i As Integer
Dim Tab_period() As Single

ReDim Tab_period(0, x)
For i = 0 To x
Tab_period(0, i) = 1 / (Cells(4, 2)) * (i + 1) - ((Cells(3, 2) - Cells(2, 2)) / 360)
Next i
End Function

Function Pricing_flow_bondB()
Dim x As Integer
 x = Cells(4, 2) * Cells(5, 2)
Dim i As Integer
Dim Flow_bondB() As Single
ReDim Flow_bondB(0, x)
For i = 0 To x
Flow_bondB(0, i) = Cells(7, 2) * Cells(6, 2) * Exp(-Cells(8, 2) * Period_since_valo(0,i))

'ici j'aurai besoin de la fonction period_since_valo avec i qui va de 0 à i. 
Next i

Range(Cells(13, 1), Cells(13, x)).Value = Flow_bondB()
Range(Cells(13, 1), Cells(13, x)).Borders.Value = 1
Range(Cells(13, 1), Cells(13, x)).NumberFormat = "0.00"

Dim Valeur_termB As Single

Valeur_termB = Cells(6, 2) * Exp(-Cells(8, 2) * Period_since_valo)
'Ici j'aurai besoin de la valeur de Period_since_valo avec i = x 

P = Application.Sum(Flow_bondB()) + Valeur_termB

Merci d'avance pour votre aide, je bloque dessus depuis un bout de temps ...

:)

15/04/2016, 09h59
Philippe PONS

Salut,

quelques remarques:
Ta fonction Function Period_since_valo() est déclarée sans paramètre.
Or tu l'appelles une fois sans paramètre et une fois avec 2 paramètres(Period_since_valo(0,i)).
Si tu dois lui passer des valeurs en argument, il faut définir les paramètres correspondants, éventuellement en Optional(facultatif).
De plus ta fonction ne renvoi pas de valeur:
il n' y a pas d'instruction NomDeLaFonction=ValeurARenvoyer
HTH,

Merci Philippe,

J'ai fait quelques modifications en suivant tes conseils mais j'ai un beug.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function Period_since_valo(i As Integer)
Dim x As Integer
 x = Cells(4, 2) * Cells(5, 2)
 
Dim i As Integer
Dim Tab_period() As Single

ReDim Tab_period(0, x)

'Calculer les valeurs

For i = 0 To x

Tab_period(i) = 1 / (Cells(4, 2)) * (i + 1) - ((Cells(3, 2) - Cells(2, 2)) / 360)

Next i

Period_since_valo(i) = Tab_period(i) 
'Cela me renvoie à l'erreur : l'indice n'appartient à la sélection

Merci d'avance :)

15/04/2016, 10h42
Philippe PONS
1- tu ne peux pas avoir un paramètre nommé i, et une variable locale ayant le même nom.
Dans ce cas, c'est la variable locale(Dim i As Integer) qui prend le pas sur le paramètre, et tu perds la valeur du paramètre.

2- syntaxe de l'instruction qui rend la valeur:
Code:

1 2 3 ' à gauche du signe égal, c'est le nom de la fonction, sans argument Period_since_valo = Tab_period(i)
Cordialement,
15/04/2016, 12h17
MarlyM

Super merci beaucoup Philippe :)

Bonjour,

Dans une fonction, il est déconseillé d'utiliser des "Range" et autres objets mais plutôt des valeurs. par exemple, si je prends ta première fonction, elle pourrait ressembler à ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Function Period_since_valo(Valeur1 As Double, _
                           Valeur2 As Double, _
                           Valeur3 As Double, _
                           NbColonne As Long) As Double() '<-- double parenthèses si la fonction retourne un tableau
 
    Dim I As Integer
    Dim Tab_period() As Double
 
    ReDim Tab_period(NbColonne)
 
    For I = LBound(Tab_period) To NbColonne '<-- ou UBound(Tab_period)
 
        Tab_period(I) = 1 / Valeur1 * (I + 1) - (Valeur2 - Valeur3) / 360
 
    Next I
 
    Period_since_valo = Tab_period '<-- ici la fonction retourne le tableau
 
End Function

et cette fonction peut être appelée de cette façon :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Test()
 
    Dim Tbl
    Dim I As Long
 
    Tbl = Period_since_valo(Cells(4, 2).Value, Cells(3, 2).Value, Cells(2, 2).Value, Cells(4, 2).Value * Cells(5, 2).Value)
 
    For I = LBound(Tbl) To UBound(Tbl)
 
        Debug.Print Tbl(I)
 
    Next I
 
End Sub

Dans cet exemple, la fonction retourne un tableau (d'où la présence des parenthèses). Les valeurs des cellules sont passées en argument de même qu'une opération pour déterminer le nombre de colonnes.

16/04/2016, 13h36
MarlyM

Je vais essayer de faire ça, merci beaucoup!

Par contre je ne comprend pas à quoi sert débug. print, pourrai tu m'expliquer?
16/04/2016, 14h59
Philippe PONS

Hello,

Debug.Print est probablement l'instruction la pus utilisée lors de la
mise au point d'un programme.
Elle sert à imprimer dans la fenêtre Execution(CTRL+G) ce qu'on lui passe en paramètre.
Exemple:

Code:

Debug.Print Tbl(I)

écrit la valeur de l'élément d'index I du tableau Tbl.
HTH,

Bonjour,

Comme dans tes fonctions tu ne retourne pas les résultats, j'ai utilisé Debug.Print pour que tu puisse voir le résultat des valeurs contenues dans le tableau mais tu peux aussi récupérer ça directement dans une feuille de calcul. Exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Test() Dim Tbl() As Double Dim I As Long Tbl = Period_since_valo(Cells(4, 2).Value, Cells(3, 2).Value, Cells(2, 2).Value, Cells(4, 2).Value * Cells(5, 2).Value) 'résultat en colonne E Range(Cells(1, 5), Cells(UBound(Tbl), 5)) = Application.Transpose(Tbl) End Sub
et comme tu peux savoir à l'avance la dimension de ton tableau tu peux faire :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Test2() Dim NBColonne As Long NBColonne = Cells(Cells(4, 2).Value * Cells(5, 2).Value, 15) 'résultat en colonne E Range(Cells(1, 15), Cells(NBColonne, 15)) = Application.Transpose(Period_since_valo(Cells(4, 2).Value, Cells(3, 2).Value, Cells(2, 2).Value, NBColonne)) End Sub
Le tableau est en ligne (par rapport à une feuille de calcul) et la fonction "Transpose", comme son nom l'indique, le transpose en colonne.

Je pense que tu devrais lire quelques tutos sur les fonctions pour parfaire tes connaissances.

Cela marche super bien merci beaucoup !
Oui j'ai essayé de faire des tutos mais c'est pas évident d'appliquer la méthode...

J'ai encore un problème, je voudrai utiliser la fonction period_since_valo dans une autre fonction mais j'ai le code d'erreur incompatibilité de type.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Function Period_since_valo(Frequence As Double, _
                           Date_valo As Double, _
                           Date_emmision As Double, _
                           NbColonne As Long) As Double()
 
 
    Dim I As Integer
 
    Dim Tab_period() As Double
 
    ReDim Tab_period(NbColonne)
 
    For I = LBound(Tab_period) To NbColonne
 
        Tab_period(I) = 1 / Frequence * (I + 1) - ((Date_valo - Date_emmision) / 360)
 
    Next I
 
    Period_since_valo = Tab_period
 
Function Pricing_flow_bond(Coupon As Double, _
                           Principal As Double, _
                           Taux As Double, _
                           NbColonne As Long, Period_since_valo() As Double) As Double()                          
 
Dim I As Integer
 
    Dim Flow_bond() As Double
 
    ReDim Flow_bond(NbColonne)
 
    For I = LBound(Flow_bond) To NbColonne
 
        Flow_bond(I) = Coupon * Principal * Exp(-Taux * Period_since_valo)
 
    Next I
 
    Pricing_flow_bond = Flow_bond
 
                           End Function
 
 Sub InsertionFlowB()
 
    Dim Tbl3() As Double
    Dim I As Long
 
    Tbl3 = Pricing_flow_bond(Cells(7, 2).Value, Cells(6, 2).Value, Cells(8, 2).Value, Cells(4, 2).Value * Cells(5, 2).Value, [B]Period_since_valo(Cells(4, 2).Value, Cells(3, 2).Value, Cells(2, 2).Value, Cells(4, 2).Value * Cells(5, 2).Value))

Si vous avez une piste ce serait top :)

Bonjour,

Je n'ai pas de connaissance en financier mais comme la fonction "Period_since_valo" retourne un tableau, il te faut probablement faire une seconde boucle dans la fonction appelante "Pricing_flow_bond" et ça va demander probablement un tableau à plusieurs dimensions. La fonction "Period_since_valo" demande des arguments que tu dois lui passer depuis ta fonction "Pricing_flow_bond" et donc, tu dois les demander aussi dans la fonction "Pricing_flow_bond" afin de pouvoir les transmettre comme dans cet exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Function Period_since_valo(Frequence As Double, _
                           Date_valo As Double, _
                           Date_emmision As Double, _
                           NbColonne As Long) As Double()
 
    Dim Tab_period() As Double
    Dim I As Integer
 
    ReDim Tab_period(NbColonne)
 
    For I = LBound(Tab_period) To NbColonne
 
        Tab_period(I) = 1 / Frequence * (I + 1) - ((Date_valo - Date_emmision) / 360)
 
    Next I
 
    Period_since_valo = Tab_period
 
End Function
 
Function Pricing_flow_bond(Coupon As Double, _
                           Principal As Double, _
                           Taux As Double, _
                           NbColonne As Long, _
                           LaFrequence As Double, _
                           DateValeur As Double, _
                           DateEmission As Double) As Double()
 
 
    Dim Flow_bond() As Double
    Dim I As Integer
    Dim Tbl() 'pour récupérer les valeurs calculées dans la fonction "Period_since_valo"
 
    'appel de la fonction avec passage des arguments
    Tbl = Period_since_valo(LaFrequence, DateValeur, DateEmission, NbColonne)
 
    ReDim Flow_bond(NbColonne)
 
    For I = LBound(Flow_bond) To NbColonne
 
        'attention, cette ligne va apparaître en rouge à cause du point d'interrogation tbl(?) !!!
        'là, il faut savoir quelle valeur tu veux utiliser et comme c'est un tableau ???
        Flow_bond(I) = Coupon * Principal * Exp(-Taux * tbl(?))
 
    Next I
 
    Pricing_flow_bond = Flow_bond
 
End Function