Transformer une formule avec INDEX/EQUIV en valeur

Version imprimable

Bonjour

J'ai une formule qui est longue et horrible avec une recherche et des interpolations, j'utilise FormulaLocal donc le résultat est une formule. Je voudrais que le résultat soit une valeur mais je ne vois pas comment faire.
Voilà le code :

Code:

1
2
3
4
 
Sheets("Resultats").Range("L" & i).FormulaLocal = "=(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff1"";coeff_liq;0))+(AE" & i & "-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1))*(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1));EQUIV(""coeff1"";coeff_liq;0))-INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff1"";coeff_liq;0)))/(INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1))-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1)))*(V" & i & "/10000)^4+(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff2"";coeff_liq;0))+(AE" & i & "-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1))*(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1));EQUIV(""coeff2"";coeff_liq;0))-INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff2"";coeff_liq;0)))/(INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1))-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1)))*(V" & i & "/10000)^3" _
& "+(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff3"";coeff_liq;0))+(AE" & i & "-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1))*(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1));EQUIV(""coeff3"";coeff_liq;0))-INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff3"";coeff_liq;0)))/(INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1))-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1)))*(V" & i & "/10000)^2+(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff4"";coeff_liq;0))+(AE" & i & "-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1))*(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1));EQUIV(""coeff4"";coeff_liq;0))-INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff4"";coeff_liq;0)))/(INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1))-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1)))*(V" & i & "/10000)" _
& "+(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff5"";coeff_liq;0))+(AE" & i & "-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1))*(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1));EQUIV(""coeff5"";coeff_liq;0))-INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff5"";coeff_liq;0)))/(INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1))-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1)))"

Pouvez-vous m'aider ?
Merci
Romhain

22/08/2017, 14h40
riaolle

Bonjour,

Code:

Sheets("Resultats").Range("L" & i).Value = Sheets("Resultats").Range("L" & i).Value

Bonjour,

Une variante par rapport à la proposition de riaolle :

Code:

1
2
3
Sheets("Resultats").Range("L" & i).Value = Evaluate("=(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff1"";coeff_liq;0))+(AE" & i & "-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1))*(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1));EQUIV(""coeff1"";coeff_liq;0))-INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff1"";coeff_liq;0)))/(INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1))-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1)))*(V" & i & "/10000)^4+(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff2"";coeff_liq;0))+(AE" & i & "-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1))*(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1));EQUIV(""coeff2"";coeff_liq;0))-INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff2"";coeff_liq;0)))/(INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1))-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1)))*(V" & i & "/10000)^3" _
& "+(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff3"";coeff_liq;0))+(AE" & i & "-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1))*(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1));EQUIV(""coeff3"";coeff_liq;0))-INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff3"";coeff_liq;0)))/(INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1))-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1)))*(V" & i & "/10000)^2+(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff4"";coeff_liq;0))+(AE" & i & "-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1))*(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1));EQUIV(""coeff4"";coeff_liq;0))-INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff4"";coeff_liq;0)))/(INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1))-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1)))*(V" & i & "/10000)" _
& "+(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff5"";coeff_liq;0))+(AE" & i & "-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1))*(INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1));EQUIV(""coeff5"";coeff_liq;0))-INDEX(temp_liq;(EQUIV(AE" & i & ";Pression_liq;-1)+1);EQUIV(""coeff5"";coeff_liq;0)))/(INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1))-INDEX(Pression_liq;EQUIV(AE" & i & ";Pression_liq;-1)+1))))"

Mais il semblerait préférable de définir des variable intermédiaires, afin d'éviter de recalculer plusieurs fois les mêmes sous-expressions.

22/08/2017, 14h56
Romhain

Citation:

Envoyé par riaolle

Bonjour,

Code:

Sheets("Resultats").Range("L" & i).Value = Sheets("Resultats").Range("L" & i).Value

Merci cette ligne de code est à ajouter juste après celle du formulalocal ?
22/08/2017, 14h57
riaolle

Oui, c'est ça.
22/08/2017, 14h59
Romhain

Ca ne fonctionne pas, Excel renvoie #REF!

La proposition de Ben_L me renvoie #VALEUR!
22/08/2017, 15h13
riaolle
Es-tu sûr que ta formule fonctionne avant même de vouloir la transformer en valeur ?
Ceci marche sans problème :
Code:

1 2 3 4 Sub test() Range("B1").FormulaLocal = "=A1" Range("B1").Value = Range("B1").Value End Sub
22/08/2017, 15h23
Romhain

Je viens de la tester en formulaLocal, pas de problème, cela me donne le résultat de la formule mais en voulant la mettre sous forme de valeur excel renvoie #REF!
22/08/2017, 15h29
Romhain

La formule est située dans la colonne L et elle a besoin de données situées sur les colonnes V et AE qui sont plus loin. Ce ne serait pas çà le problème ?

Je viens de me rendre compte d'une bétise de ma part, je commence à fatiguer. La valeur en colonne V est immense et ne fait pas du tout partie de l'intervalle dans laquelle j'effectue ma recherche.... Un autre problème mais je vous remercie de m'avoir aidé si rapidement!
A bientôt très certainement.
Romhain