Copier la formule d'une cellule dans une autre...

[NicolasE]

Bonjour à tous,

Je n'ai pas trouvé de réponse à ma question en feuilletant les différents sujet, c'est pourquoi j'écris ce message. La réponse ne me semble pas tres complexe mais étant plus ou moins débutant en VBA je ne trouve pas ma solution exact..
EN fait j'ai une cellule (on l'apellera B1) qui contient une grosse formule mathématique. J'aimerai copier en B10 cette formule mathématique..Attention, pas le résultat, juste la formule, sachant que cette formule peut changer j'aimerai une macro qui puisse copier la formule en B1 et la coller en B10...
Je précise que j'y suis parvenu en faisant comme cela :

Range("B10").Select
ActiveCell.FormulaR1C1 = "1/(J37+J38+1/((J32+J33+J34+J35+J36)*6+1/J31))"
Range("B10").Select

Mais probleme de cette méthode : il faut aller dans le code pour modifier la formule..hors je voudrais, en cas de modif de formule le faire sur la feuille excel....

Pourriez vous m'aidez??
Merci par avance .
Cordialement,

NicolasE

 

[vbacrumble]

Re : Copier la formule d'une cellule dans une autre...

Bonjour

Tu peux essayer ceci

Sub formules()
Range("B10").Formula = Range("A1").Formula
End Sub

 

[NicolasE]

Re : Copier la formule d'une cellule dans une autre...

désolé VBAcrumble mais cela ne marche pas car il y a le signe égale devant la formule et donc ila macro écrit le résultat et non la formule..tout le probleme vient de la...
Il faudrai copier la formule sans le signe égale ert la ca marcherait mais comment faire?...

 

[NicolasE]

Re : Copier la formule d'une cellule dans une autre...

Personne ne peut venir à mon aide?....
Merci par avance

NicolasE

 

[mth]

Re : Copier la formule d'une cellule dans une autre...

Bonjour,

Peut-être un simple copier/collage spécial Formules ?

Range("B1").Copy
Range("B10").PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False

@ +

mth

 

[NicolasE]

Re : Copier la formule d'une cellule dans une autre...

hélas cela ne marche toujours pas...encore une fois excel affiche le résultat de la formule et non la formule elle meme!!
Merci quand meme..
J'attend vos reponse!
Cordialement,

NicolasE

 

[mromain]

Re : Copier la formule d'une cellule dans une autre...

bonjour NicolasE, Mth, vbacrumble

à tester :
Range("B10").Value = Range("B1").Formula

a+

 

[NicolasE]

Re : Copier la formule d'une cellule dans une autre...

désolé mromain mais ca ne marche pas..toujours le meme probleme!
Merci pour vos futures réponses...

 

[Pierrot93]

Re : Copier la formule d'une cellule dans une autre...

Bonsoir à tous

pas sur mais avec déjà toutes ces réponses sans succès essayes peut être ainsi :

Range("B1").Formula = "'" & Range("A1").Formula

bonne soirée.
@

 

[NicolasE]

Re : Copier la formule d'une cellule dans une autre...

Ok ca marche merci bcp....
Cordialement,

NicolasE

 

[vbacrumble]

Re : Copier la formule d'une cellule dans une autre...

Bonsoir tous

Pour le fun et par désœuvrement 😉

[B1] = Split([A1].FormulaLocal, "=")(1)