Re: [prog] FormulaLocal et nom de fonction

Sun, 24 Sep 2006 08:03:33 -0700 

J'espère que les listings vont mieux passer.

Listing 1 :

Sub FormulaTests
  Dim oDocument As Object, oSheet As Object, oCell As Object
  '
  oDocument = ThisComponent
  oSheet=oDocument.Sheets.getByName("Feuille1")
  For i =1 to 10
      oCell = oSheet.getCellByPosition(0, i)
      oCell.Value = i
  Next i
oSheet.getCellByPosition(0,i).FormulaLocal = "=SOMME(A2:A11)" End Sub 




et Listing 2 :



Sub FormulaTests
  Dim oDocument As Object, oSheet As Object, oCell As Object
  '
  oDocument = ThisComponent
  oSheet=oDocument.Sheets.getByName("Feuille1")
  For i =1 to 10
      oCell = oSheet.getCellByPosition(0, i)
      oCell.Value = i
  Next i
  oCell = oSheet.getCellByPosition(0, i)
  oCell.Formula = "=SUM(A2:A11)"
End Sub



Bon surf,
Christian

--
Visitez http://christianwtd.free.fr/ pour débuter avec Calc, d'OpenOffice.org

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à