[Excel] Forcer le format en texte

Version imprimable

05/09/2006, 17h52
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, 11h52
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, 11h59
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, 12h01
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, 12h01
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, 12h03
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, 12h14
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, 12h29
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, 12h42
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, 12h45
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, 14h32
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, 14h56
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, 15h19
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, 15h22
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, 15h31
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, 15h33
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...

06/09/2006, 16h26
dacid

Bon, je vais faire comme si ça marchait partout alors... :?

Tant que je suis dessus..., quand je fait ce traitement, je le ferme ensuite:
MonClasseur.Close(False,emptyparam,emptyparam,0);
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;

Et si je veux le lancer juste après:
Application.ProcessMessages;
ShellExecute(0,'OPEN','classeur1.xls', Nil, Nil, SW_SHOW);

Excel plante !

Sais tu pourquoi ?
06/09/2006, 17h04
dacid

Ok, c'est bon.

(je me suis emmêlé les pinceaux entre les close, quit, disconnect, autoclose, autoquit, free, ... :aie: )

Merci pour tout.
19/08/2008, 17h53
Concombre Masqué

Bonjour,

J'ai eu besoin de cette fonction, et j'ai utilisé ceci :

Code:

MaFeuille.Cells.Item[i,j].NumberFormat := '@';

La solution est parfaite, mais j'ai besoin de le faire pour la colonne entière, et j'aurais donc préféré utiliser .EntireColumn une fois pour toute... seulement ça ne marche pas...

Je m'en contenterait, et la personne qui avait besoin du programme aussi, mais je suis quand même déçu de pas pouvoir utliser EntireColumn...
19/08/2008, 17h59
dacid
Salut Concombre Masqué (c'est marrant, j'en ai encore lu un il y a moins d'un mois ;)),

Essaye un truc comme ça:
Code:

1 2 Columns("I:I").Select Selection.NumberFormat = "@"
:roll: