Bonjour à tous
Comment est_il possible d'adapter le code ci-dessous pour que le EnDRow
s'applique à une seule colonne ?
En clair sélectionner la dernière cellule non vide juste sur la colonne B.
Sub feuille_un
Dim MonDocument As Object
Dim MaFeuille As Object
Dim MaCellule As Object
Dim Curseur As Object
MonDocument = ThisComponent
MaFeuille = MonDocument.Sheets(0)
MonDocument.CurrentController.ActiveSheet = MaFeuille
Curseur = MaFeuille.createCursor
Curseur.gotoEndOfUsedArea(False)
MaCellule = MaFeuille.getCellByPosition(1,
Curseur.RangeAddress.EndRow +1)
MonDocument.CurrentController.Select(MaCellule)
End Sub
Cordialement
Michel B.
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour savoir comment vous
désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés