[Calc] Macro non fonctionnelle Fermé

Question

Bonjour,

J'ai un problème avec une macro. 
Voici le code  :
Option VBASupport 1
Option Explicit
Option Base 1

Global oListener As Object  
Global Cellule As Object

Sub lancement_origine 
  Cellule = ThisComponent.Sheets(1).GetCellRangeByName("O15") 
  
  oListener = CreateUnoListener( "Classeur_" , "com.sun.star.util.XModifyListener" )  
  Cellule.addmodifylistener(olistener)  
End Sub

Sub Classeur_Modified(oEvent)

Range("Q15") = "Sans métier, Glandeur"
  Range("u4") = 0
  Range("U13") = 20
  
End Sub

Sub Classeur_Disposing(oEvent)  
End Sub

Voici ce que la macro devrait faire : lorsque l'on modifie la cellule O15 de la deuxième feuille, la valeur de la cellule Q15 est changée en "Sans métier, Glandeur", celle de la cellule U4 est changée en 0 et celle de la cellule U13 est changée en 20.

Pour information, j'utilise LibreOffice 5.1.4 sous Windows 10.

yclik · Answer

Bonjour
Une proposition ci dessous
en associant la macro à l'évènement feuille
Positionner le pointeur sur le nom de l'onglet
clik droit>Evènement de la Feuille
sélectionner Contenu modifié et associer la macro




sub ModifO15' but :modif O15 de la deuxième feuille, Q15 ="Sans métier, Glandeur",'U4 = en 0 et U13  en 20.rem  variablesdim document   as objectdim oSheet as object' adresse cellule activeCelluleActive = ThisComponent.getCurrentSelectionDim r as integerDim c as integerdim cellQ15 as stringdim cellU4 as integerdim cellU13 as integerr=CelluleActive.CellAddress.Row 'adresse ligne modifiéec=CelluleActive.CellAddress.Column 'adresse colonne modifiée'si cellule modifiée col O (14) lig 15 ((14)if c=14 and  r=14 then goto miseajour else goto  FINmiseajour:adresseQ15="Q15"oSheet = ThisComponent.sheets.GetByName("Feuille2") ' nom de la feuilleoSheet.getCellRangeByName (adresseQ15).string = ("Sans métier, Glandeur")adresseU4="U4"oSheet = ThisComponent.sheets.GetByName("Feuille2")oSheet.getCellRangeByName (adresseU4).value = 0adresseU13="U13"oSheet = ThisComponent.sheets.GetByName("Feuille2")oSheet.getCellRangeByName (adresseU13).value = 20FIN:End sub

[Calc] Macro non fonctionnelle

1 réponse

Discussions similaires