Insertion d'un lien de cellule dans 1 formule
Résolu
900CBR
Messages postés
6
Statut
Membre
-
900CBR Messages postés 6 Statut Membre -
900CBR Messages postés 6 Statut Membre -
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....
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:
- Insertion d'un lien de cellule dans 1 formule
- Créer un lien pour partager des photos - Guide
- Lien url - Guide
- Formule si et - Guide
- Verificateur de lien - Guide
- Formule moyenne excel plusieurs colonnes - Guide
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
@+
faut quand meme essayer de reflechir un peu soit dit sans te vexer.
va voir ta solution sur ton 1er post
@+
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
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
