> Je passe par le dispatcher car je n'ai pas trouvé de fonction de l'API > permettant d'étendre la sélection jusqu'à la fin des données. Comme on fait > avec [Crtl] + Fin ou [Crtl] + FlècheBas > Il y a bien des fonctions et méthodes gotoStart, collapseToCurrentRegion() > mais je n'ai pas étudié ça pour l'instant. >http://api.openoffice.org/docs/DevelopersGuide/Spreadsheet/Spreadsheet.xhtml#1_3_3_1_Cell_Cursor
Ce code te permet d'étendre la sélection jusqu'à la fin des données : Sub CurrentRegion Dim oDocument As Object, oSheet As Object, oSelection As Object, oCursor As Object oDocument = thisComponent oSheet = oDocument.CurrentController.getActiveSheet ' Première cellule de la sélection de données oSelection = oDocument.CurrentController.Selection oCursor = oSheet.createCursorByRange(oSelection) oCursor.collapseToCurrentRegion oDocument.CurrentController.Select(oCursor) End Sub --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
