Discussion :

[gorka]

Bonjour,

Sous open office, je veux écrire une série de valeur dans N cellules. Exemple:
A1:B2 => A1=toto, A2=titi, B1=tutu et B2=tata

Je stocke mes valeurs (toto,...) dans un variant (qui est en fait un tableau de variant):

Code :

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

1
2
3
//aValue:Variant;
aValue[0,0]:='toto';
aValue[0,1]:='titi';

J'ai essayé ce cette manière mais j'ai une erreur
"com.sun.star.uno.RuntimeException" sur la ligne SetAsArray.

Code :

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

1
2
3
//Cell:TOOCalcCellRange;
Cell:=CalcSheet.CellRangeByName[CellName1+':'+CellName2];
Cell.AsArray:=aValue;

Merci d'avance

[gorka]

Suppléments d'informations:

Mon tableau est initialisé de cette manière:
ContenuEcriture:=VarArrayCreate([0, 30, 0, 8],varVariant);
Ce tableau est donc un Variant array of Variant

J'ai remarqué ceci:
En ayant

Code :

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

Result:=Cell.AsArray;

Result[0][0] me retourne ma valeur alors que Result[0,0] me renvoie l'exception:
Exception Delphi EVariantBadIndexError à $267EF93D

Et logiquement,

Code :

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

Cell.AsArray:=aValue;

- cell.AsArray[0][0] OK et cell.AsArray[0,0] => KO
- aValue[0][0] => OK et aValue[0,0] => K0

Exception Delphi EVariantBadIndexError à $267EF93D

Du coup, je ne sais pas si le problème provient de l'appel dans le code d'Open office ou de ma création de mon tableau à deux dimensions.

[defluc]

Je suis overbooké pour l'instant et je ne pourrai pas suivre la discussion au jour le jour.
J'ai interfacé Openoffice Calc avec Delphi en affectant des valeurs à des cellules mais unes à unes et non par plage entière en une seule fois.
Du genre

Code :

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

    OooSheet.getCellByPosition(ColNo, RowNo).SetString(MaVariable);

A toi de voir.

Bonne continuation

[gorka]

Merci pour l'info, mais je sais déjà faire cellule par cellule. Je voulais écrire
sur une plage de cellules pour un gain de temps.