Reconstitution d'une formule de calcul par VBA

Reconstitution d'une formule de calcul par VBA - VB/VBA/VBS - Programmation

Marsh Posté le 28-02-2008 à 11:18:11    

Bonjour,
Je cherche à reconstituer des formules de calcul sur une feuille Excel.
Par exemple: somme de 2 cellules L15C8 et L27C8.
Je mets le résultat dans la cellule L28, puis je copie la valeur de cette cellule en H28.
 
MON PROBLEME: je récupère bien la formule en H28 (=L15C8+L27C8), mais elle ne s'exécute pas sous Excel.
?????!!!!!!!!!!     COMMENT FAIRE  ??????????????
 
voici un exemple du code VB:
 
Sub Macro1
    Range("L28" ).Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(""=L15C8"",""+L27C8"" )"
    Range("L28" ).Select
    Selection.Copy
    Range("H28" ).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H28" ).Select
    Application.CutCopyMode = False
End Sub
 
Merci pour vos lumières

Reply

Marsh Posté le 28-02-2008 à 11:18:11   

Reply

Marsh Posté le 01-03-2008 à 10:12:17    

Ca semble bien compliqué...

 


Avec Excel, tu peux créer tes propres fonctions en VBA que tu vas récupérer ensuite dans les fonctions personnalisées.

 

Par exemple, si tu veux faire une fonction qui fait:
y=4x+5 et bien dans un module tu fais :

 
Code :
  1. function Calc4xPlus5(X as double)
  2.     Calc4xPlus5 = 4*X + 5
  3. end function
 

Ensuite, sous Excel, tu cliques dans la cellule où tu veux le calcul et tu tapes :
=CALC4XPLUS5(A1) (A1 étant la cellule où tu as le X de stocké)


Message édité par otobox le 01-03-2008 à 10:13:03

---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed