se positionner en haut de feuille [calc]

[lesent]

je veux réaliser l'équivalent sous excel de

Range("A1") .select

réagissant à l'évènement worshet_Change

sous calc


version openoffice 2.02

[lesent]

version openoffice 2.02

voici le code que j'ai réussi à trouver
avec comme hypothèque l'annulation de l'évènement changement
de feuille après une prévisualisation de page .

Dommage ..déjà signalé par M.Thompson en 2004..

Si quelqu'un (e) connait une réponse merci d'avance..

Code : Tout sélectionner

' voici donc  les 4 macros 
' qui  permettent de se positionner 
'en haut de chaque feuille
' après assignation de la macro  SheetEventListenerOn 
'à l'ouverture du document.



Global oListener As Object 
Global oCalcDocument As Object 

Sub SheetEventListenerOn 
 'doit être activée à l'ouverture du document
 'par assignation
  
  oCalcDocument=ThisComponent 
 
  oListener = createUnoListener("FEUILLEACTIVE_","com.sun.star.beans.XPropertyChangeListener") 
  oCalcDocument.CurrentController.addPropertyChangeListener("ActiveSheet",oListener) 
End Sub 


Sub SheetEventListenerOff 
  oCalcDocument.CurrentController.removePropertyChangeListener("ActiveSheet",oListener) 
End Sub 



'--La  macro ci-dessous est exécutée 
'--à chaque changement de feuille

Sub FEUILLEACTIVE_propertyChange(oEvent) 

  msgbox("OK la feuille courante a changé") 
'le 17-04-2006
'appel des procédures souhaitées

call positionnement_haut_de_feuille


End Sub 


sub   positionnement_haut_de_feuille 

dim oSheet as object
dim oCell as object
' aller vers des objets

oSheet=Thiscomponent.currentcontroller.ActiveSheet

oCell=oSheet.getCellRangeByName("A1")

Thiscomponent.currentcontroller.select(oCell)


end sub