Discussion :

[albeil]

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

[ouskel'n'or]

Déjà, avant ta boucle, j'ajouterais

Code :

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

1
2
3
4
5
If not R is Nothing then
    For Each c In Range(R, R.End(xlDown))
        'Ton code
    Next
Endif

T'évitera une erreur si R n'est pas trouvé
Ensuite... on verra ce qu'il en ressort...

[albeil]

Déjà, avant ta boucle, j'ajouterais

Code :

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

1
2
3
4
5
If not R is Nothing then
    For Each c In Range(R, R.End(xlDown))
        'Ton code
    Next
Endif

T'évitera une erreur si R n'est pas trouvé
Ensuite... on verra ce qu'il en ressort...

j ai rajoute mais toujours meme probleme, le re-calcul automatique produit une erreur que seul peut solutionner la re-validation de la cellule.

Merci

[Invité]

Bonjour

Essaye de mettre

Code :

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

Application.Volatile

comme ceci pour voir

Code :

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

1
2
Application.Volatile
Set R = Range("A:A").Find(cusip).Offset(3, 2

Starec

[albeil]

merci.

y a un petit progres apres ce dernier ajout.

je suis toujours oblige de re-valider la cellule mais toutes les cellules ayant la meme fonction sont alors re-calcules automatiquement. C est un peu comme si la fonction avait besoin d etre re-initialiser une fois.

[Invité]

Re

Est-ce que par hasard dans les Options Excel le calcul automatique serait désactivé ?

Starec