Discussion :

[Romhain]

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 :

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

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

[riaolle]

Bonjour,

Code :

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

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

[Romhain]

Bonjour,

Code :

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

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 ?

[riaolle]

Oui, c'est ça.

[Romhain]

Ca ne fonctionne pas, Excel renvoie #REF!

La proposition de Ben_L me renvoie #VALEUR!

[riaolle]

Es-tu sûr que ta formule fonctionne avant même de vouloir la transformer en valeur ?
Ceci marche sans problème :

Code :

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

1
2
3
4
Sub test()
    Range("B1").FormulaLocal = "=A1"
    Range("B1").Value = Range("B1").Value
End Sub

[Ben_L]

Bonjour,

Une variante par rapport à la proposition de riaolle :

Code :

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

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.