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