Fonctions et Re-calcul

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:

---

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

---

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

Code:

---

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...

Citation:

---

Envoyé par ouskel'n'or

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

Code:

---

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

Bonjour

Essaye de mettre

Code:

---

Application.Volatile

---

comme ceci pour voir

Code:

---

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

---

Starec

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.

Re

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

Starec

non il est active.

en fait ca marche bien quand il est desactive puisque tout re-cacul necessite un F9 mais des que c est en mode automatique le re-calcul genere une erreur

Je ne sais pas si on peut faire ça dans une fonction mais...
essaie de le désactiver avant ta formule et ré-active-le après. :cry:
Sans garantie aucune...

Bonjour

Ta fonction active deux macros. Il se peut que le problème vienne de là.

Que font ces deux macros?

Merci.

Je pense que tu as peut etre raison.

ces deux macros sont en fait des add-ins fournis par une societe externe, qui basiquement calcule un array de valeurs.

cela voudrait dire que deux add-ins ne peuvent pas cohabiter dans une fonction ce qui est quand meme tres genant.

Citation:

---

Envoyé par ouskel'n'or

Je ne sais pas si on peut faire ça dans une fonction mais...

---

Code:

---

1 2 3 4

Worksheets(1).EnableCalculation = False 'et après ta formule Worksheets(1).EnableCalculation = True Worksheets(1).Calculate

---

j ai fais comme cela (voir ci dessous) mais dans ce cas la ca ne calcule plus rien.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Public Function DVVALUE1(cusip As Variant) As Variant Dim b As Double Application.Volatile Worksheets("BONDS").EnableCalculation = False   Set R = Range("A:A").Find(cusip).Offset(3, 2) If Not R Is Nothing Then 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 End If DVVALUE1 = b   Worksheets("BONDS").EnableCalculation = True Worksheets("BONDS").Calculate End Function

---

Ça ne m'étonne qu'à moitié :cry: tout doit dépendre effectivement de ce qu'il y a dans tes deux macros...
Dédolé mais je n'ai rien de mieux.
Bonne chance