[Résolu][Calc]Aller à 1 cellule spécifique en fin de script
Publié : 24 juin 2019 09:06
Bonjour,
J'aimerais faire en sorte que cette macro ci-dessous s'achève en se plaçant en cellule A3 de la Feuille "Données".
Le "Bouton Données" correspond au retour au menu principal situé sur la feuille "Données" de mon classeur. Ce bouton se trouve sur plusieurs feuilles.
J'ai trouvé ce code mais je ne parviens pas à l'intégrer au mien.
Merci de votre aide
J'aimerais faire en sorte que cette macro ci-dessous s'achève en se plaçant en cellule A3 de la Feuille "Données".
Code : Tout sélectionner
Global Mondoc As Object
Global LesFeuilles As Object
Global Fimport as object
Global Fdonnees as object
Global FIntuiz as object
Global Fmajo as object
Global Fsynthese as object
Global Fexercice as object
Global kligneFin as long
Sub affecter
'macro d'affectation des variables de portée générale
Mondoc = Thiscomponent
Lesfeuilles = Mondoc.sheets
Fimport = Lesfeuilles.getByName("ImportCSV")
Fdonnees = Lesfeuilles.getByName("Données")
FIntuiz = Lesfeuilles.getByName("infolégale")
kligneFin = DerniereLigne(Fdonnees)
'on affiche la feuille Données
Fdonnees.isvisible = true
Mondoc.CurrentController.ActiveSheet = Fdonnees
MonDoc.CurrentController.Zoomvalue = 85
End Sub
[b]sub BoutonDonnees
Mondoc.CurrentController.ActiveSheet.isvisible = true
Mondoc.CurrentController.ActiveSheet = FDonnees
MonDoc.CurrentController.Zoomvalue = 85
End Sub
[/b]
J'ai trouvé ce code mais je ne parviens pas à l'intégrer au mien.
Code : Tout sélectionner
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")
' Sélection d'une cellule pour que cela fasse plus propre
args1(1).Value = "$A$3:$A$3"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 1, args1())