Bonjour à toutes et tous,
J'ai enregistré une macro pour effacer des cellules (avec l'enregistreur).
Je l'ai sauvegardée.
Je l'ai attribuée à l'évènement "Bouton de souris relaché" d'un bouton
(j'ai essayé tous les évènements...).
Cela ne fonctionne pas... (OOo 2.3.0 et Win XP)
Voici la macro générée par OOo :
------------------------------------------------------------------------
/sub efface_lignes/
/rem
----------------------------------------------------------------------/
/rem define variables/
/dim document as object/
/dim dispatcher as object/
/rem
----------------------------------------------------------------------/
/rem get access to the document/
/document = ThisComponent.CurrentController.Frame/
/dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")/
/rem
----------------------------------------------------------------------/
/dim args1(0) as new com.sun.star.beans.PropertyValue/
/args1(0).Name = "ToPoint"/
/args1(0).Value = "$K$25:$L$35"/
/dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())/
/rem
----------------------------------------------------------------------/
/dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0,
Array())/
/rem
----------------------------------------------------------------------/
/dim args3(0) as new com.sun.star.beans.PropertyValue/
/args3(0).Name = "ToPoint"/
/args3(0).Value = "$K$25"/
/dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())/
/end sub/
------------------------------------------------------------------------
Avez-vous une idée de ce qui pèche ?
Merci d'avance
François
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
