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