[Résolu][Calc]Assigner une macro à un évènement de feuille

[vito971]

Bonjour
je crée dans mon programme des feuilles avec une macro avec la commande suivante :

Code : Tout sélectionner

ThisComponent.sheets.insertNewByName(MonButton.string,1)

il sagit donc d'une feuille qui n'existe pas encore à l'ouverture du document
mais cette feuille doit contenir des macros sur les évènements suivants :
Sélection modifié
et
double-clic

j'ai essayé cela :

Code : Tout sélectionner

dim oEvent as new com.sun.star.script.ScriptEventDescriptor
dim struct

	struct = page.getScriptEvents(index)
	if (ubound(struct) > -1) then
		' Supprimer l'assignation au script
	      page.revokeScriptEvents(index)
end if
	
	oEvent.ListenerType = "com.sun.star.awt.XActionListener"
	oEvent.EventMethod = "actionPerformed"
	oEvent.ScriptType = "StarBasic"
	oEvent.ScriptCode = "document:Standard."&NomMacro
	
page.registerScriptEvent(index, oEvent)

mais cela ne fonctionne pas
je me suis inspirer d'un post : affecter une macro à un bouton
voici mon fichier au cas ou cela pourrai intéresse:
Quelqu'un peut-il m'aider svp

[Hubert Lambert]

Bonjour,

Tu peux en principe utiliser la méthode "replaceByName" de l'objet "Events" (qui fonctionne comme un conteneur).
Par exemple, si "feuille" est ton objet feuille :

Code : Tout sélectionner

Events = feuille.Events
dim props(1) as new com.sun.star.beans.PropertyValue
    props(0).Name = "EventType"
    props(0).Value = "Script"
    props(1).Name = "Script"
    props(1).Value = "vnd.sun.star.script:Standard.monModule.maMacro?language=Basic&location=document"
Events.replaceByName("OnDoubleClick", props())

Cordialement.

PS. Pense à utiliser Xray pour explorer les objets dans tes macros. Tu verras ainsi quelles propriétés ou méthodes existent pour chaque objet, et tu gagneras un temps précieux .

[vito971]

Bonsoir
Merci cela fonctionne avec de menus modifications
je sais que l'évènement doubleclick est OnDoubleClick
Mais comment se nomme l'évènement sur la feuille: Sélection modifié
Merci

[zeguedon]

Bonjour,

A priori, c'est :"OnChange"

EvenementDeFeuille.png

A+

[vito971]

bonsoir
apparemment ce n'est pas cela:
sélection modifiée --->OnSelect
Cordialement
Ps:
faire clic droit sur l'onglet de la feuille ->évènement de la feuille
et les évènements en Français sont dans le même ordre que ceux de votre copie d'écran en Anglais

[ThierryM]

Bonjour,
Je sais que ce fil est ancien mais comme il y a une ambiguïté sur les réponses données, j'apporte une précision, la macro proposée par Hubert Lambert fonctionne parfaitement mais avec l'évènement "OnChange". Donc voici le code modifié :

Code : Tout sélectionner

'Affecte la macro "RetrouverMatiereContenuPrecedent" à l'évènement "Sélection modifiée" de la feuille nouvFeuille
    Events = nouvFeuille.Events
    Dim props(1) as new com.sun.star.beans.PropertyValue
    props(0).Name = "EventType"
    props(0).Value = "Script"
    props(1).Name = "Script"
    props(1).Value = "vnd.sun.star.script:Standard.Matieres.RetrouverMatiereContenuPrecedent?language=Basic&location=document"
    Events.replaceByName("OnChange", props())

Cordialement,
Thierry