christianwtd a écrit :
Lionel Corgnet - Association Vélocampus a écrit :
Pour le moment, je cherche à copier simplement le résultat de la
formule d'une cellule vers une autre cellule.
Un exemple simple :
Sub ExempleSimple
Dim oDocument As Object, oSheet As Object, oCell As Object
Dim Contenu As Variant
oDocument=ThisComponent
oSheet=oDocument.Sheets.getByName("Feuille1")
'
oCell=oSheet.getCellByPosition(0,0)
Contenu =Ocell.Value
'
oDocument.Sheets.getByName("Feuille1").getCellByPosition(2,
2).setValue(Contenu)
End Sub
[...] Si la cellule est un texte, il faut écrire :
Ocell.String à la lecture
et
oCell.setString à l'écriture
Merci beaucoup pour ces pistes, Christian.
Ainsi, pour la copie d'une formule, on aura :
oDstCell.setFormula(oSrcCell.Formula)
Nouvelle question : est-il possible, lors de la copie d'une formule, de
modifier automatiquement les numéros de cellule apparaissant dans cette
formule?
--
E CAM Lionel Corgnet,
_V=/\ /\____ technicien cycle de l'association Vélocampus,
/ /\ \S/ /\ \P administrateur des systèmes et du réseau,
( O ) L ( U ) défenseur des gnus et des pingouins,
\___/ \___/ et... cycliste urbain nantais.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]