formule a recuperer

[sophie]

lu la jeunesse,
dans la case a1 j'ai une formule (=8*x^3+3*x+2)
mon but est de recuperer la formule de la case 'a1' dans ma macro afin de remplacer la variable 'x' par des valeur d'un tableau.

attention, impossible pour moi de recopier la formule dans ma macro car la formule dans la case a1 changera tjrs d'ou la nessecité de la recuperer 🙂

 

[Creepy]

Hello all,

Je pense que cela devrait te convenir

++

Creepy

Sub dede()
Dim X As String
Dim Z As String
Z = Range('j30').Value ' Recup la ormule 8*x+3...
X = Range('K30').Value ' Recup la Valeur de X dans la cellule
Z = Replace(Z, 'x', X) ' remplace dans la chaine Z les x par la valeur de la variable X
Range('L30') = '=' & Z 'donne la valeur à la cellule =+texte Z soit une formule ;-)
End Sub

Message édité par: Creepy, à: 25/04/2005 15:49

 

[SOPHIE]

MERCI CREEPY

j'ai just un probleme avec la derniere ligne 'Range('L30') = '=' & Z '
ca m'ecrit erreur. es tu sur cette ligne de commande?

 

[SOPHIE]

oubli mon dernier msg ca marche nikel 🙂

encore merci creepy....

 

[SOPHIE]

petite question en plus, ca marche nikel mais ca me recopie la formule dans chaques cases en remplacant 'x'
existe t'il un moyen pour affiché seulement le resultat, c-a-d faire le calcul directement dans la macro et mettre dans les cases excel just le resultat

car recopier des longues formules 50 000 fois prend beaucoup de place

 

[Sylvain]

bonjour,

je pense que l'outil tables du menu données peut t'aider : Ce site n'existe plus

 

[SOPHIE]

bonjour,
non ca va pas comme methode, l'idée de creepy etait bien, il faut just que les calculs se font dans la macro mais je sais pas si c possible