La commande EndRow

fr-users
#1

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.

#2

Re-Bonjour

Blanchard Michel wrote

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.

En partant du dernier exemple de:
https://wiki.documentfoundation.org/Macros/Calc/001/fr

Ci-joint exemple:
SelectionColonne.ods
<http://nabble.documentfoundation.org/file/n4080065/SelectionColonne.ods>

Cordialement
Pierre-Yves