Insertion d'un lien de cellule dans 1 formule Résolu

Question

Bonjour,

Je vous résume rapidement mon problème. J'ai une formule inscrite dans une cellule telle que celle ci:

-0,285751 * KV ^ 6 + 2,462966 * KV ^ 5 + -7,536414 * KV ^ 4 + 9,37239 * KV ^ 3 + -3,6979 * KV ^ 2 + 2,0023 * KV + -0,267315

Je dois la modifier et l'insérer dans une autre cellule sous forme de formule excel en remplaçant le terme "KV" par les coordonées d'une cellule.

Je n'arrive pas à créer ce lien. Comment créer cette connexion ? "B10" s'affiche tel que dans la formule.

  Sub Test_modif_formule()
   
Dim formule As String
Dim formuleDef As Variant

    'Définir formule = à la formule à modifier récupérée en "F5"
        formule = Range("F5").Value
                       
    'Faire une recherche de "KV" dans cette variable et le remplacer (cellule"B10")
        formuleDef = Replace(formule, "KV", "B10")
        
    'Coller la formule modifiée dans la cellule D15
    Range("D15").FormulaR1C1 = " =( " & formuleDef & " ) "

   End Sub

Si je remplace "B10" par range("B10") je récupère la valeur mais ne crée pas lien !!!
A l'aide svp....

ego · Answer

c est + confus que le post precedent ;o)
faut quand meme essayer de reflechir un peu soit dit sans te vexer.
va voir ta solution sur ton 1er post 
@+

Cathy · Answer

Bonjour,

 

Vous étiez proche du résultat mais il faut utiliser FormulaLocal comme propriété

********

Sub Test_modif_formule()

 

Dim formule As String

Dim formuleDef As Variant

 

'Définir formule = à la formule à modifier récupérée en "F5"

formule = Range("F5").Value

 

'Faire une recherche de "KV" dans cette variable et le remplacer (cellule"B10")

formuleDef = Replace(Replace(formule, "KV", "B10"), " ", "")

 

'Coller la formule modifiée dans la cellule D15

Range("D15").FormulaLocal = "=" & formuleDef

 

End Sub

********

 

Cordialement

900CBR · Answer

Merci beaucoup cathy,
Exactement ce que j'espérai faire... 
Récap: On récupère une formule en tant que variable, on remplace des caractères  de cette formule par une cellule Excel liée.
Solution par Cathy, le jeudi 3 janvier 2008 à 17:04:12
Merci à tous

Insertion d'un lien de cellule dans 1 formule

3 réponses

Discussions similaires

Newsletters