1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Global oListener As Object
Global oListener2 As Object
Global oClasseur As Object
Global oSheet1Cell as Object
Sub lancement_GestionEvenements
oClasseur = ThisComponent
oListener = createUnoListener( "Classeur_" , "com.sun.star.beans.XPropertyChangeListener" )
oListener2 = CreateUnoListener( "Classeur_", "com.sun.star.util.XModifyListener" )
oClasseur.CurrentController.addPropertyChangeListener( "ActiveSheet" , oListener )
oSheet1Cell = Thiscomponent.sheets(0).getcellrangebyname("A2:E24")
oSheet1Cell.addmodifylistener(oListener2)
End Sub
Sub Classeur_PropertyChange(oEvent)
MsgBox oEvent.Source.ActiveSheet.Name
End Sub
' Add this to the Document is going to be closed event
Sub Remove_Listener
' removes the listener
oSheet1Cell.removemodifyListener(oListene2)
End Sub
Sub Classeur_disposing(oEvent)
REM All listeners must support this event:
' msgbox "disposing of the listener"
End Sub
Sub Classeur_Modified(oEvent)
Dim oSheets as Object
Dim oSheet as Object
Dim oRange as Object
Dim oCell as Object
Dim oCellUpdate as Object
Dim oCellReference as Object
Dim sAddress as Variant
Dim sValue as string
MsgBox "Cellule Modifiee"
End Sub |