formule a recuperer

C

Creepy

XLDnaute Accro

• 25 Avril 2005

• #2

Hello all,

Je pense que cela devrait te convenir

++

Creepy

Code:

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

 

Vote positif 0 Vote négatif

S

SOPHIE

Guest

• 25 Avril 2005

• #3

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?

 

Vote positif 0 Vote négatif

S

SOPHIE

Guest

• 25 Avril 2005

• #4

oubli mon dernier msg ca marche nikel 🙂

encore merci creepy....

 

Vote positif 0 Vote négatif

S

SOPHIE

Guest

• 25 Avril 2005

• #5

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

 

Vote positif 0 Vote négatif

Sylvain

XLDnaute Occasionnel

• 25 Avril 2005

• #6

bonjour,

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

 

Vote positif 0 Vote négatif

S

SOPHIE

Guest

• 26 Avril 2005

• #7

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

 

Vote positif 0 Vote négatif