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

[albeil]

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

[ouskel'n'or]

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.
Sans garantie aucune...

[Pierre Fauconnier]

Bonjour

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

Que font ces deux macros?

[albeil]

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.

[ouskel'n'or]

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

Code :

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

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

[albeil]

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

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

[ouskel'n'or]

Ça ne m'étonne qu'à moitié 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