[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.

[Calc] Activation d'une feuille et une cellule

Messagepar Factooor » 11 Juil 2008 13:15

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

Code : Tout sélectionner   AgrandirRéduire
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   AgrandirRéduire
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
AOO- LibO 4 version off - sous Kubuntu et 7
Consultant formateur Apache-OpenOffice
Avatar de l’utilisateur
Factooor
PassiOOnné
PassiOOnné
 
Message(s) : 542
Inscrit le : 14 Fév 2007 12:39
Localisation : Régions Parisienne

Retour vers Suprême de code

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 1 invité