Discussion :

[dacid]

Bonjour,

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

Code :

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

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 ?

[TicTacToe]

Je crois qu'il faut faire:

Code :

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

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;

[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.

[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 :

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

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

[dacid]

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 :

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

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 ?

[cmen76]

La solution ne serait-elle pas de mettre la valeur numérique i*100 + j, avec un format de cellule 00000 ?

[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:

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.

[cmen76]

En faisant précéder la valeur d'une quote, Excel sait que la valeur est en texte.

Code :

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

1
2
 
MaFeuille.Cells.Item[i,j].Value := '''' + String('0'+IntToStr(i)+IntToStr(j));

[anapurna]

salut

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

@+ Phil

[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.

[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...