5 messages in org.openoffice.fr.progRe: [prog] débutant - copie de formul...
FromSent OnAttachments
Lionel Corgnet - Association VélocampusOct 27, 2006 4:35 am 
FrançoiseOct 27, 2006 5:03 am 
Lionel Corgnet - Association VélocampusOct 27, 2006 7:39 am 
christianwtdOct 27, 2006 8:41 am 
Lionel CorgnetOct 30, 2006 1:36 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] débutant - copie de formule [was: copie de cellule]Actions...
From:Lionel Corgnet (lio@velocampus.net)
Date:Oct 30, 2006 1:36:09 am
List:org.openoffice.fr.prog

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.