Bonjour Bernard,

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

Excellent :) de la puissance des curseurs ...

Laurent

--
Laurent Godard <[EMAIL PROTECTED]> - Ing�nierie OpenOffice.org
Indesko >> http://www.indesko.com
Nuxeo CPS >> http://www.nuxeo.com - http://www.cps-project.org
Livre "Programmation OpenOffice.org", Eyrolles 2004


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



Répondre à