7 messages in org.openoffice.fr.progRe: [prog] Worksheet_Activesheet
FromSent OnAttachments
stpi...@infonie.frApr 3, 2008 4:37 am 
Francois GattoApr 3, 2008 6:42 am 
stpi...@infonie.frApr 3, 2008 7:18 am 
Laurent GodardApr 3, 2008 7:52 am 
stpi...@infonie.frApr 7, 2008 1:59 am 
oo...@volcar.orgApr 8, 2008 1:54 am 
stpi...@infonie.frApr 8, 2008 6:24 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] Worksheet_ActivesheetActions...
From:stpi...@infonie.fr (stpi@infonie.fr)
Date:Apr 7, 2008 1:59:33 am
List:org.openoffice.fr.prog

Bonjour, J'ai bien ce code qui me permet de faire un quelque chose.

j'ai essayé pour faire uniquement sur une feuille par exemple : Feuille3

Mais à chaque fois cela marche sur toutes les feuilles ?

================

Global ActDocView as object, ActListener as object

sub ActListenerAdd ActDocView = ThisComponent.Currentcontroller

ActListener = createUnoListener("Act_","com.sun.star.sheet.XActivationEventListener") 'ActDocView = ThisComponent.Sheets.getByName("Echéancier Prêt Amortissable") ActDocView.addActivationEventListener(ActListener)

end sub

sub ActListenerRemove ActDocView.removeActivationEventListener(ActListener) end sub

sub Act_disposing(ActListener)

end sub

Sub Act_activeSpreadsheetChanged(ActListener) On error Resume next Amortissable") 'msgbox "Activation de la feuille : " & ActDocView.ActiveSheet.Name

End Sub ===============

---------------------- ALICE C'EST ENCORE MIEUX AVEC LA MUSIQUE !
-------------------- Découvrez vite l'offre exclusive ALICE BOX avec ALICE MUSIC, le téléchargement
légal et illimité de plus de 300 000 titres ! En cliquant ici http://alicemusic.aliceadsl.fr Offre soumise à conditions