Bonsoir François,
Merci pour cet exemple de code, je vais l'essayer dès que possible
a+
Bob
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
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]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
