j'ai mis en place un écouteur (LISTENER) d'évenements sur un classeur CALC ce qui declenche le message "Changement"
- lorsque le contenu d'une cellule a été modifiée
- lorsqu'une feuille a été ajoutée, renommée, supprimer
je voudrais déclencher des macros en fonction du type d'evenement qui se produit ( ajout ou suppression de feuilles, modif de cellule, etc..). L'utilisation de XRAY sur l'objet 'evenement' dans la procédure Pys_Modified n'est pas d'un grand secours, il y a trop de paramètres, propriétés,etc..
Comment faire ? D'avance merci pour le coup de main.
voici le code actuel
Code : Tout sélectionner
REM ***** BASIC *****
global PysClass as Object
global PysListener as Object
'-----------------------------------------------------
Sub PysListenersAdd
PysClass= thisComponent
PysListener = CreateUnoListener( "Pys_", "com.sun.star.util.XModifyListener" )
PysClass.AddModifyListener(PysListener)
Msgbox("ajout listener")
End Sub
'-------------------------------------------------------
Sub PysListenersRemove
PysClass.RemoveModifyListener(PysListener)
End Sub
'---------------------------------------------------------
Sub Pys_Modified(oEvent)
Msgbox("changement")
XRAY(oEvent.Source)
end sub
'---------------------------------------------------------------
Sub Pys_Disposing
End Sub
