Discussion :

[zertupo]

Bonjour

J'ai un petit problème, je fais appel à une fonction dans une fonction, mais arrivé à celle ci, elle ne se lance pas et me sort incompatiblité de type... J'ai bien vérifié si mes expressions étaient bien des nombres, et c'est bien le cas, j'ai pas de string..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
 
Dim base As Single, val As Double, dt_final As Date, couru As Double, duree As Single, cpn As Double
 
dt_final = CDate("28/12/2022")
couru = (Now() - CDate("28/12/2016")) / 365
duree = Round((dt_final - CDate("28/12/2017")) / 365, 0)
cpn = equiv_taux(0.034, 4)
base = 1
 
val = 119.215
 
essaie = newton(0.034, cpn, 100, duree, couru, 1, val, 100)
 
 
 
End Sub

ici tout va bien

Code :

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

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
Function testote(x0, cpn, remb, duree, couru, freq, val, price)
 
Dim essai As Double, f As Double, f1 As Double
Dim test As String
 
test = ""
i = 0
f = 0
f1 = 0
 
Do
    f = price(cpn, remb, duree, couru, x0)
    f1 = deriv1(cpn, remb, duree, couru, rdmt)
    newton = x0 - f / f1
 
    essai = price(cpn, remb, duree, couru, newton)
 
    If val - essai < 0.00001 Then
        test = "ok"
    Else
        xo = newton
    End If
 
    i = i + 1
 
    If i > 1000 Then
        Exit Do
    End If
 
Loop While test = "ok"
 
 
 
End Function

ça me bloque au niveau de f=price(), incompatibilité de type...je vous mets ma fonction price() :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function price(cpn, remb, duree, couru, rdmt) As Double
 
price = 0
For i = 0 To duree
 
    If i = 0 Then
        price = cpn / ((cpn * couru) * (1 + rdmt) ^ (couru + 1))
    Else
        price = price + cpn / ((1 + rdmt) ^ (i + 1))
    End If
 
    If i = duree Then
 
        price = price + remb / ((1 + rdmt) ^ (duree + 1))
    End If
 
Next i
 
End Function

si vous savez pourquoi ? Je pense bien que c'est surement une maladresse mais bon je trouve pas malheureusement...

[Invité]

Code :

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

cint(CDate("28/12/2017"))

[zertupo]

non ma variable duree est bien "single" aprés... du coup je l'ai changé en déclaration en integer, c'était plus logique... mais le problème ne vient pas de là, j'ai quand même essayé, ça me prend même pas la variable en compte, ça bug direct "dépassement de capacité"...

Merci pour votre temps

[Invité]

Bonjour,
type tes variable!

Code :

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

1
2
3
4
5
Option Explicit
Sub test()
Function testote(x0 as ?, cpn as ?, remb as ?, duree as ?, couru as ?, freq as ?, valeur  as ?, price as ?) as ? 'Val est un fonction VBA ne pas nommer une variable avec!
Function price(cpn, remb, duree, couru, rdmt) As Double

[zertupo]

Bonjour


Maintenant il s'attend à ce que ma fonction price soit un tableau ...Je vois vraiment pas en quoi ça le dérange de lancer une fonction...je vais essayer de limiter les variables au maximum

[Invité]

mais avec le bon type de variable et ce pour toute les méthode!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function price(cpn As Date, remb As String, duree As Boolean, couru As Integer, rdmt As Long) As Double 
price = 0
For I = 0 To duree
 
    If I = 0 Then
        price = cpn / ((cpn * couru) * (1 + rdmt) ^ (couru + 1))
    Else
        price = price + cpn / ((1 + rdmt) ^ (I + 1))
    End If
 
    If I = duree Then
 
        price = price + remb / ((1 + rdmt) ^ (duree + 1))
    End If
 
Next I
 
End Function

[zertupo]

Désolé je n'ai pas précisé, c'est pas fonction price qui bloque, elle ne se lance même pas... ça bloque avant à la fonction testote, qui ne se lance pas parce qu'elle s'attend que la fonction soit un tableau... Je vais déclarer les variables pricipales en public pour voir..

[Invité]

tu as écris ta fonction dans un module standard ou dans ThisWorkbook!

si ell est tans ThisWorkbook c'est normal il faut quelle soit dans un module standard!

[zertupo]

oui c'était bien dans module...j'ai fait autrement au finale, j'ai mis ma boucle et mon test directement dans mon sub test et j'ai laissé ma fonction testo faire le calcul simple...

Merci en tout cas pour votre temps