Bonjour xavier
function Engins2(nombre as integer) as variant Dim oDocument as object, oFeuilles as object Dim oFeuille as object, oCell as object, oZone as object oDocument = thisComponent oFeuilles = oDocument.Sheets oFeuille = oFeuilles.getByName("Feuille1") oCell=oFeuille.getCellByPosition(1,1) oCell.CellBackColor=RGB(150,0,0) end function
ne te manque t i l pas un retour de valeur de ta fonction juste avant end function
genre Engins2="" sinon, je ne vois pas comme ca à brule pourpoing bonne journee Laurent --------------------------------------------------------------------- To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
