Discussion :

[liviertlse]

Bonjour,
je me prends la tête depuis un petit moment à essayer de mettre une couleur de fond dans une cellule excel via delphi.

j'utilise (entre autre...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vWorksheet.Range['A1:A5'].Interior.Color := clBlack;

mais cela ne donne rien : : :

Quelqu'un aurait une idée ?

Merci d'avance

[Frank]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vWorksheet.Range['A1:A5'].Interior.Color := RGB(0,255,0);

Par contre vérifies la couleur, c'est au pif que j'ai marqué la séquence.

[liviertlse]

ça ne marche pas ...
j'y croyais pourtant ...

merci quand même

[MFDev]

Salut
J'ai essayé 3 solutions avec succès:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
// avec  XlsApp: TExcelApplication;
procedure TForm1.Button1Click(Sender: TObject);
 var
  XlsWk: 	_workbook;
  XlsPage :_Worksheet;
 begin
  XlsApp.Connect;
  XlsApp.Visible[0] := true;
  XlsWk := XlsApp.Workbooks.Open('F:\Prog\_Essai\Classeur1.XLS', False,False, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 0);
  XlsPage := XlsWk.Worksheets['Feuil1'] as _worksheet;
  // test 1
  XlsPage.Range['A1', 'A8'].Interior.Color := RGB(100,200,128);
  // test 2
  XlsPage.Range['C5', 'C10'].Interior.Color := clLime;
  // test 3
  XlsPage.Range['D1', 'D8'].Interior.ColorIndex := 7;
  XlsApp.Save;
  XlsApp.Disconnect;

@+
Fabrice

[Frank]

Autant pour moi, il faut mettre une virgule et pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vWorksheet.Range['A1','A5'].Interior.Color := RGB(0,255,0);