Le but du jeu consiste à figer les volets et à ôter cette fonction par un bouton.
La macro place le curseur sur la cellule en dessous de la ligne et à droite de la colonne que l'on désir figer.
Puis l'action figer est appliquée, et enfin le curseur est positionné sur une cellule origine (dans le contexte de mon application...)
Code : Tout sélectionner
sub figer
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$I$10"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:FreezePanes", "", 0, Array())
rem ----------------------------------------------------------------------
dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "ToPoint"
args10(0).Value = "a9"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args10())
end sub