originalcompo
Messages postés65Date d'inscriptiondimanche 3 avril 2005StatutMembreDernière intervention 9 octobre 2007
-
21 sept. 2005 à 16:26
originalcompo
Messages postés65Date d'inscriptiondimanche 3 avril 2005StatutMembreDernière intervention 9 octobre 2007
-
22 sept. 2005 à 14:15
Salut
Voici mon code:
with TargetSheet.Range['A1','A1'] do begin
DestCalc.Select;
DestCalc.Formula := '=1+2';
DestCalc.NumberFormat := '0.00';
end
Le problè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...
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Déclarations privées }
public
{ Dé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éation du lien OLE pour la classe référencé par Excel dans la base de registre "Excel.Application"
OleApplication.visible:=True; // pour rendre Excel visible
OleWorkBook:=OleApplication.Workbooks.Add; // pour cré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;