Discussion :

[gorka]

Bonjour,

Je veux récupérer la valeur d'une cellule ou affecter une valeur à une cellule selon le type de la valeur (string, date, integer, formule).
Je suis un peu perdu avec les différentes propriétés (j'utilise Excel2000):
Text, wrapText et NumberFormat.
C'est pour éviter de faire des cast comme DateToStr, IntToStr.

J'aimerais obtenir ceci:

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
20
21
22
23
24
25
26
27
function GetCellule(CellName:String)
[...]
case CellType of
    ctString:Result:=Worksheet.Range[CellName,EmptyParam].Text;
    ctNumber:Result:=Worksheet.Range[CellName,EmptyParam].AAAA;
    ctEmpty:Result:=Null;
    ctFormula:Result:=Worksheet.Range[CellName,EmptyParam].Formula;
    ctDateTime:
    begin
        Worksheet.Range[CellName,EmptyParam].NumberFormat:='jj/mm/aa';
        Result:=Worksheet.Range[CellName,EmptyParam].Value;
    end;
end;
function SetCellule(CellName:String,aValue:_Variant)
[...]
//todo voir le type de aValue et mettre ce format dans la cellule et affecté la valeur
case aValue of
    ctString:Result:=Worksheet.Range[CellName,EmptyParam].Text;
    ctNumber:Result:=Worksheet.Range[CellName,EmptyParam].AAAA;
    ctEmpty:Result:=Null;
    ctFormula:Result:=Worksheet.Range[CellName,EmptyParam].Formula;
    ctDateTime:
    begin
        Worksheet.Range[CellName,EmptyParam].NumberFormat:='jj/mm/aa';
        Result:=Worksheet.Range[CellName,EmptyParam].Value;
    end;
end;

Comment je peux faire ceci?
Merci

[defluc]

J'ai fait pas mal d'applications qui utilisent Ms-Excel, et suis prçet à essayer de t'aider mais je ne comprends pas la question.
Quand tu dis

J'aimerais obtenir ceci:

, tu l'as, alors, où est le problème ?

[gorka]

Je crois que je me suis compliqué la tâche car j'ai remarqué que sous Excel la valeur retourne déjà le bon type ce qui n'était pas le cas pour Open Office (Cell.AsNumber, Cell.AsDate,...).
D'où mes questions pour mes fonctions qui ne sont plus utiles vu que si je veux mettre ou récuperer une valeur dans une cellule, je n'ai pas à me préoccuper du type de la valeur.

En fait, on peut définir le format d'une cellule (Nombre, Date, Texte, Monétaire,...). Par défaut, il y a le format Standard qui correspond à aucun format spécifique.

Mes questions seraient:
- Comment peut-on mettre/changer le type de format d'une cellule?
- A quoi servent les différentes propriétés: Text, wrapText, NumberFormat,...? Si c'est bien elles qui sont liées au type de format de la cellule.

[defluc]

"Text" force la capture du contenu de la cellule en caractères
"Wordrap" force le renvoi à la ligne si le texte de la cellule est + long que sa largeur
"NumberFormat" permet d'encoder une chaine de format imposant l'affichage des séparateurs de milliers et de décimales ainsi que le nombre de caractères décimaux

[gorka]

Merci pour tes réponses, ca devrait suffir pour ce que je vais faire.