Le 2005-04-20 09:32, Laurent Godard a �crit :
Mais, il y a peut etre une API, � creuser ...
Oui, autour du SheetCellCursor, non d�crit dans le bouquin.
Solution:
Dim monDocument As Object, maFeuille As Object
Dim curs1 As Object, uneCellule As Object
monDocument = ThisComponent
maFeuille = monDocument.Sheets(2) ' troisi�me feuille
curs1 = maFeuille.createCursor ' curseur de cellule
curs1.gotoEndOfUsedArea(False)
uneCellule = curs1.getCellByPosition(0,0)
uneCellule.CellBackColor = RGB(255,255,0) ' mettre en jaune
Bonne journ�e
Bernard
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
