Bonjour,

j ai developpe la fonction ci-dessous qui marche bine.Toutefois des qu un recalcul doit se produire la fonction affiche une erreur VALUE et il faut aller de nouveau sur le champ pour le re-valider et cette fois la fonction calcule et affiche une valeur.

une idee?

Merci.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Function DVVALUE1(cusip As Variant) As Variant
Dim b As Double
 
 Set R = Range("A:A").Find(cusip).Offset(3, 2)
 For Each c In Range(R, R.End(xlDown))
 a = Run([USA_CALC_DF], Range(c.Offset(0, -1), c.Offset(0, -1)), Range("KESCURVE"), 3, 1)
 z = Run([USA_CALC_DF_SPREAD2], Range(c.Offset(0, -1), c.Offset(0, -1)), Range("KESCURVE"), 3, 1, -0.0001, 100)
 
 b = b + c * (a(1) - z(1))
 
 Next
 DVVALUE1 = b
End Function