Bonjour,

Je me lance dans les macros... Après avoir lu bien attentivement "Programmation OOo 2", j'ai un petit problème avec les "listener"

Mon code fonctionne mais le message "Feuille modifiée !" ne disparait qu'au bout de 7 ou 8 clics sur OK. D'où vient l'erreur ?

D'autre part, quelqu'un peut-il m'expliquer la différence entre la méthode addChartDataChangeEventListener et addModifyListener ?

Merci d'avance pour vos éclairages.

Mon code :

Option Explicit Private ecouteur As Object

Sub Surveiller()

Dim Classeur As Object, Feuilles As object, Feuille as object

Classeur = ThisComponent Feuilles = Classeur.Sheets Feuille = Feuilles.getbyindex(0)

ecouteur = CreateUnoListener("perf_", "com.sun.star.util.XModifyListener") Feuille.addModifyListener(ecouteur)

End Sub

Sub Relacher(ecouteur As Object) Feuille.removeModifyListener(ecouteur) End Sub

Sub perf_modified(ecouteur As Object) print "Feuille modifiée !" End Sub

Sub perf_disposing(ecouteur As Object) print "Disposing..." End Sub