Francois Gatto a écrit :
Bonjour,
Voici un exemple :
Global oCell, oListener
Sub Add_Listener
'### A lancer pour activer l'écouteur
dim oDoc, oSheet
dim sTypeListener
oDoc = ThisComponent
oSheet = oDoc.Sheets.getByName( "Feuille2" )
oCell = oSheet.getCellRangeByName( "C3" )
sTypeListener = "com.sun.star.util.XModifyListener"
oListener = CreateUnoListener( "CellEvent_", sTypeListener )
oCell.addModifyListener( oListener )
End Sub
Sub CellEvent_Modified( oEvent )
'### Réaliser le traitement lors de chaque modification de la cellule
call BoursOOoRama 'appel de la macro souhaitée
End Sub
Sub CellEvent_Disposing( oEvent )
'### Désactiver l'écouteur
'msgbox "Fin d'écoute du listener"
End Sub
Sub Remove_Listener
'### Supprimer l'écouteur
'http://api.openoffice.org/docs/common/ref/com/sun/star/util/XModifyBroadcaster.html#removeModifyListener
oCell.removeModifyListener( oListener )
End Sub
Je trouve vraiment cette macro intéressante , que vous la trouviez
complexe ne m'étonne pas. Néanmoins je vais garder cette macro au chaud
en vue de l'utiliser
un jour Merci de me faire découvrir cette possibilité Steve
SEGUIN François a écrit :
Bonjour Bob
Je sais qu'il faut utiliser les "Listener" . J'ai fais quelques
essais mais c'est assez complexe à mon goût. Tu trouve un début
d'explication sur les "Listener" dans le livre de de Bernard et
Laurent. il y a aussi un document d' Andrew Pitoniak qui traite du
sujet et que tu trouve sur le site d'OOo.
Bon courage
Franços
----- Original Message ----- From: "Bob" <[EMAIL PROTECTED]>
To: <prog@fr.openoffice.org>
Sent: Monday, May 28, 2007 7:42 PM
Subject: [prog] Comment déclencher l'exécution d'une macro lors du
chagement de contenu d'une cellule ?
Il me semble que le titre est assez explicite ;-)
J'ai vu passer ce sujet (et une solution me semble-t-il) sur les
listes ces temps-ci, mais je n'arrive pas à retrouver.
Pas trouvé non plus dans le livre de Bernard et Laurent
Qqu'un aurait-il une solution à me proposer ?
Bonne soirée
Bob
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------------------------
Orange vous informe que cet e-mail a ete controle par l'anti-virus
mail. Aucun virus connu a ce jour par nos services n'a ete detecte.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]