[Calc] Activation d'une feuille et une cellule

Vos meilleures macros et portions de code sont publiées dans cette section.
Aucun support sur une question de programmation ici !

Modérateur : Vilains modOOs

Règles du forum
Aucune question dans cette section !
Celle-ci rassemble les meilleures macros et portions de code. Vous pouvez en revanche commenter ou argumenter le code exposé. Vous pouvez même remercier l'auteur (cela fait toujours plaisir) en indiquant par exemple dans quel cadre ou contexte vous en avez eu l'utilité.
Si vous avez à poster quelque chose, faites-le depuis la section Macros et API et demandez à un modérateur de l'y déplacer.
Avatar de l’utilisateur
Factooor
PassiOOnné
PassiOOnné
Messages : 543
Inscription : 14 févr. 2007 11:39
Localisation : Lisieux (14)

[Calc] Activation d'une feuille et une cellule

Message par Factooor »

Activation d'une feuille à l'ouverture d'un document

Code : Tout sélectionner

Sub ActivationFeuille
monDocument = Thiscomponent
lesFeuilles = monDocument.Sheets
maFeuille = monDocument.currentController.activeSheet
maFeuille = lesFeuilles.getByIndex(1)'index de la feuille
monDocument.currentController.activeSheet = maFeuille
End Sub
Activation d'une cellule à l'ouverture d'un document

Code : Tout sélectionner

sub afficherCellule()
Dim monDocument As Object, monControleur As Object
Dim maCellule As object
Dim maFeuille As object

    monDocument = ThisComponent
    monControleur = monDocument.CurrentController
    monControleur.activeSheet = monDocument.Sheets(1)
    maFeuille = monControleur.ActiveSheet
    maCellule = maFeuille.getCellRangeByName("D13")
    monControleur.select(maCellule)

End Sub 
7.5.4.2 (AARCH64) LibreOffice
Mac OS X 13.4.1