- 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