[Excel] Forcer le format en texte

Version imprimable

Voir 40 message(s) de cette discussion en une page

05/09/2006, 18h52
dacid

[Excel] Forcer le format en texte
Bonjour,

Je crée un fichier xsl et j'écrit dans les cellules de cette manière:
Code:

1 2 3 4 5 for i := index to index+5 do begin for j := 1 to 4 do begin MaFeuille.Cells.Item[i,j].Value := String('0'+IntToStr(i)+IntToStr(j)); end; end;
Seulement, il me formate le texte en numérique alors que je ne le veux pas.

Je veux qu'il me le force en texte: "01245" (pour des codes postaux par exemple).

Comment faire ?

Je crois qu'il faut faire:

Code:

1
2
3
4
5
6
  for i := index to index+5 do begin
    for j := 1 to 4 do begin
      MaFeuille.Cells.Item[i,j].NumberFormat := '@';
      MaFeuille.Cells.Item[i,j].Value := String('0'+IntToStr(i)+IntToStr(j));
    end;
  end;

06/09/2006, 12h52
dacid

Bonjour TicTacToe,

Merci pour ta réponse mais ça ne change rien. :(

Si tu sais comment changer le format de toute une colone d'un coup, c'est encore mieux.
06/09/2006, 12h59
TicTacToe
ah ? moi je l'utilise et ca fonctionne correctement.

Attention, il faut définir le format de la cellule avant de la remplir a priori.

Quant a toute une colonne d'un coup, c'est la même chose mais avec un range sur une colonne ou bien
Code:

1 2 MaFeuille.Cells.Item[ ICol, 1 ].EntireColumn.NumberFormat := '@'; --> MaFeuille.Cells.Item[ ICol, 3 ].Value := '00123'; // devrait fonctionner et laisser les 0 puisque formatée en chaine
06/09/2006, 13h01
cmen76
En faisant précéder la valeur d'une quote, Excel sait que la valeur est en texte.
Code:

1 2 MaFeuille.Cells.Item[i,j].Value := '''' + String('0'+IntToStr(i)+IntToStr(j));
06/09/2006, 13h01
anapurna

salut

pour qu'ecxel considere le champs comme texte tu peut le forcer en mettant un apostrophe ' au devant ta valeur

@+ Phil
06/09/2006, 13h03
TicTacToe

J'avais pensé à la cote, mais le pb, sur de nombreuse versions d'excel,

la cote reste mais est bien prise en compte.
Il suffit juste d'editer la cellule sans la modifier et de la revalider et la cote disparait bien... bug d'excel ?

Mais en tout cas, ce n'est pas forcément joli à l'affichage et cela déroute l'utilisateur.
06/09/2006, 13h14
dacid

Bonjour à tous,

J'avais essayé la quote, la cellule est bien en texte mais c'est vrai que ce n'est pas propre, il y a des restes.

C'est bien ça que tu me dit de faire ?
MaFeuille.Cells.Item[i,j].Value := '''0'+IntToStr(i)+IntToStr(j);
MaFeuille.Cells.Item[i,j].Value := '0'+IntToStr(i)+IntToStr(j);

(edit, update ou validate ne marchent pas, j'ai essayé)

Le resultat est le même...
06/09/2006, 13h29
TicTacToe

Heu, je ne sais pas à qui tu parles :mrgreen:

sinon, pour les cotes c'est pas moi.
Je faisais juste la remarque que dans Excel, une fois la cellule alimentée par ton prog, la cote reste, et qu'en editant/validant (toujours dans excel), la cote disparait bien à l'affichage.
--> pour ca que je n'avais pas proposée cette solution.

Sinon, avec le numberformat = '@' ca ne marche toujours pas, par rapport à mon ancien post le citant?

Citation:

Envoyé par TicTacToe

ah ? moi je l'utilise et ca fonctionne correctement.
MaFeuille.Cells.Item[ ICol, 1 ].EntireColumn.NumberFormat := '@';
--> MaFeuille.Cells.Item[ ICol, 3 ].Value := '00123'; // devrait fonctionner et laisser les 0 puisque formatée en chaine

Ne marche pas chez moi, je fais exactement ça: (j'ai excel 2002 sp1)
Code:

1 2 3 4 5 6 for i := index to index+5 do begin for j := 1 to 4 do begin MaFeuille.Cells.Item[i,j].EntireColumn.NumberFormat := '@'; MaFeuille.Cells.Item[i,j].Value := '00123'; end; end;
Mais ta solution d'éditer et de revalider, je n'ai pu l'essayer car je ne connais pas les fonctions...
Peux tu me mettre un exemple ?

06/09/2006, 13h42
cmen76

La solution ne serait-elle pas de mettre la valeur numérique i*100 + j, avec un format de cellule 00000 ?
06/09/2006, 13h45
TicTacToe

dans ton code, le numberformat n'est pas à intégrer dans la boucle puisqu'il fait une colonne entière, mais bon, le problème n'est pas là, cela fait juste perdre du temps.

Alors c'est vrai qu'en fait, les cas ou j'ai utilisé NumberFormat := '@', derrière je n'alimentais pas mes cellule avec Cell[x,y].value := '123'

mais en collant du presse-papier des valeurs (plus rapide, d'ailleurs je te le conseille dans ton cas).
L'alimentation est surement différentes vis-à-vis de Excel entre : effectuer un .value et un .paste

Je ferai un test avec un .Value pour voir cet aprem.
sinon, je le fais sur un Excel 2003...

Nota:

Citation:

Mais ta solution d'éditer et de revalider, je n'ai pu l'essayer car je ne connais pas les fonctions...
Peux tu me mettre un exemple ?

Non je ne peux pas, j'ai bien précisé que cela n'était pas fait par prog, mais par l'utilisateur dans Excel.
06/09/2006, 15h32
dacid

cmen76: Ta solution ne me convient pas car la longueur des chaines n'est pas toujours la même (je sais, je n'y met pas du mien, hi).
06/09/2006, 15h56
TicTacToe
comme prévu, ceci fonctionne parfaitement sur mon Excel 2003:
Code:

1 2 MonWorkSheet.Cells.Item[ 2, 3 ].NumberFormat := '@'; MonWorkSheet.Cells.Item[ 2, 3 ].Value := '0123';
La cellule est bien '0123' et considérée comme texte (cadrage gauche par défaut).
En regardant les propriétés de la cellules, de surcroit, elle est bien estampillée de type 'Texte' sous Excel.
Aucun affichage résiduel comme l'apostrophe.

Donc je ne comprends pas pourquoi ca ne marcherait pas chez toi, à moins que ce soit dû à la version d'Excel.

Précisions:
j'utilise, TExcelApplication, TExcelWorkBook, TExcelWorkSheet pour manipuler Excel.

Moi, je l'utilise comme la faq:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var MonClasseur: _workbook;
  MaFeuille :_Worksheet;
  i,j,index: Integer;
Begin
  MonClasseur := ExcelApplication1.Workbooks.Open('classeur1.xls',...);
 
  MaFeuille := MonClasseur.Worksheets[1] as _worksheet;
  MaFeuille.Rows.Clear;
  index := 1;
  while VarToStr(MaFeuille.Cells.Item[index,1].Value)<>'' do
    index := index+1;
 
  for i := index to index+5 do begin
    for j := 1 to 4 do begin
      MaFeuille.Cells.Item[i,j].NumberFormat := '@';
      MaFeuille.Cells.Item[i,j].Value := '00123';
    end;
  end;
 
  MonClasseur.Save(0);
  MonClasseur.Close(False,emptyparam,emptyparam,0);

Crois-tu que _workbook et TExcelWorkBook diffèrent ?

06/09/2006, 16h19
TicTacToe

je vais tester ton code...
que mets tu dans la clause uses pour que le type '_workbook' soit reconnu ?

ce type n'est pas reconnu par défaut...

uniquement pour gagner du temps...
06/09/2006, 16h22
dacid

Heu... :oops:

Bin voici la liste:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ShellApi,
Menus, ComTimeStamp, ComObj, OleServer, ExcelXP ;

Essaye ComCtrls à tout hazard, ça me parle.
06/09/2006, 16h31
TicTacToe

ok pour les uses
peux tu donner le code entier, d'ouverture d'excel, d'ouverture du workbook...

Comme je ne le fais pas de la même manière, j'ai la flemme de faire des recherches pour l'ouvrir à ta manière. :?

Le but étant de tester exactement ton code avec ma version d'excel.
06/09/2006, 16h33
dacid

En fait, tout est dans le dernier post de la page 1 !
(tu m'inquiètes, il manque quelque chose ?)

me suis absenté...

j'ai testé ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
var
  MaFeuille :_Worksheet;
  MonClasseur: _workbook;
procedure TFxxxG.Button1Click(Sender: TObject);
var
  i,j,index: Integer;
Begin
  MonClasseur := ExcelApplication1.Workbooks.Open('c:\classeur1.xls', EmptyParam,
                 EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                 EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0  );
 
 
  MaFeuille := MonClasseur.Worksheets[1] as _worksheet;
  MaFeuille.Rows.Clear;
 
  ExcelApplication1.Visible[ 0 ] := True;
 
      MaFeuille.Cells.Item[2,3].NumberFormat := '@';
      MaFeuille.Cells.Item[2,3].Value := '00123';
 
  (*
  index := 1;
  while VarToStr(MaFeuille.Cells.Item[index,1].Value)<>'' do
    index := index+1;
 
  for i := index to index+5 do begin
    for j := 1 to 4 do begin
      MaFeuille.Cells.Item[i,j].NumberFormat := '@';
      MaFeuille.Cells.Item[i,j].Value := '00123';
    end;
  end;
 
  *)
end;
 
procedure TFxxxG.Button2Click(Sender: TObject);
begin
  MonClasseur.Save(0);
  MonClasseur.Close(False,emptyparam,emptyparam,0);
end;

Cela fonctionne parfaitement
* et en visu sans avoir sauvé
* et après avoir sauvé, en rouvrant le document...

donc... je ne sais pas quoi te dire si ce n'est la version d'Excel...

Voir 40 message(s) de cette discussion en une page