Insertion d'un lien de cellule dans 1 formule

Résolu/Fermé
900CBR Messages postés 6 Date d'inscription jeudi 27 décembre 2007 Statut Membre Dernière intervention 26 juin 2008 - 28 déc. 2007 à 10:21
900CBR Messages postés 6 Date d'inscription jeudi 27 décembre 2007 Statut Membre Dernière intervention 26 juin 2008 - 4 janv. 2008 à 09:06
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....
A voir également:

3 réponses

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
@+
0
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
0
900CBR Messages postés 6 Date d'inscription jeudi 27 décembre 2007 Statut Membre Dernière intervention 26 juin 2008
4 janv. 2008 à 09:06
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
0