[fr-users] La commande EndRow

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+unsubscribe@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