créer formule excel à partir de DelphiRésolu

Question

Salut

Voici mon code:

        with TargetSheet.Range['A1','A1'] do begin
          DestCalc.Select;
          DestCalc.Formula := '=1+2';
          DestCalc.NumberFormat := '0.00';
       end

Le probl&#232;me, c'est que dans la cellulle A1, j'obtient la chaine '=1+2'
Il suffit que je fasse F2 (pour rentrer dans la cellule), et quand je ressort, "miracle", il comprend que c'est une formule...

Si quelqu'un a une id&#233;e...

http://originalcompo.free.fr

originalcompo · Accepted Answer

Merci pour le code...
En fait j'ai eu une r&#233;ponse d'un coll&#232;gue de bureau:

Le code que j'ai cit&#233; fonctionne &#224; condition de rajouter le format num&#233;rique dans la cellule AVANT de remplir la formule.

Ce qui donne 

        with TargetSheet.Range['A1','A1'] do begin
          DestCalc.NumberFormat := 'General';
          DestCalc.Formula := '=1+2';
          DestCalc.NumberFormat := '0.00';
       end

Sinon, le NumberFormat mis apr&#232;s la formule n'est pas analys&#233; (en tout cas avec ma configuration, soit version d'excel 2003 etc...)

Merci quand m&#234;me !!!

http://originalcompo.free.fr

cs_pascal99 · Answer

Bonjour,
Voici un petit bout de code qui fonctionne en D5 :

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, comobj;


type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;


var
  Form1: TForm1;


implementation


{$R *.DFM}
var
  OleApplication :variant;
  OleWorkBook    :variant;


procedure TForm1.FormCreate(Sender: TObject);
begin
   OleApplication := CreateOleObject('Excel.Application');// cr&#233;ation du lien OLE pour la classe r&#233;f&#233;renc&#233; par Excel dans la base de registre "Excel.Application"
   OleApplication.visible:=True; // pour rendre Excel visible
   OleWorkBook:=OleApplication.Workbooks.Add; // pour cr&#233;er un  nouveau document
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try OleApplication.Quit;
  except end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  OleApplication.Range['A1'].select;
  OleApplication.Selection.Formula:= '=1+2';
end;


end.


Tiens-moi au courant


Pascal99

originalcompo · Answer

euh, juste un truc, c'est pas un vrai copier coller de code que j'ai fait, et le vrai code est:

    with TargetSheet.Range['A1','A1'] do begin
          NumberFormat := 'General';
          Formula := '=1+2';
          NumberFormat := '0,00';
       end

http://originalcompo.free.fr

Créer formule excel à partir de Delphi

3 réponses

Votre réponse

Discussions similaires