sélectionner une cellule dans LibreOffice Calc

Question

j'ai donc une macro pour effacer certaines cellules A2-A250 mais je veux revenir à la cellule A1 une fois que je l'ai terminé

Sub reset 
Dim oActiveSheet As Variant 
Dim oCellRangeByName As Variant 

oActiveSheet = ThisComponent.getCurrentController().getActiveSheet() 

oCellRangeByName = oActiveSheet.getCellRangeByName("A1:A250") 

oCellRangeByName.clearContents(7) 
End Sub 

Answer 1

Pour passer à une cellule, sélectionnez-le:

oRange = oActiveSheet.getCellRangeByName("A1") 
ThisComponent.getCurrentController().Select(oRange) 

La section 6.5.3 de Andrew Pitonyak's macro document explique comment sélectionner une cellule avec ou sans le contour. Ajoutez ce code pour mettre la cellule en surbrillance:

oRanges = ThisComponent.createInstance("com.sun.star.sheet.SheetCellRanges") 
ThisComponent.getCurrentController().Select(oRanges)