[fr-users] Objet CurrentSelection

Bonjour,
Sub DerniereLigneNonVide

    Dim Curseur, Cellule, MaFeuille, MonDocument As Object
    Dim MaSelection As Object

    MonDocument = ThisComponent
    MaFeuille = ThisComponent.CurrentController.ActiveSheet
    MaSelection = MonDocument.*CurrentSelection*
    Curseur = MaFeuille.createCursorByRange(MaSelection)
    Curseur.gotoEndOfUsedArea( False )

    Cellule = 
MaFeuille.GetCellByPosition(Curseur.RangeAddress.EndColumn, 
Curseur.RangeAddress.EndRow + 1)
    Cellule.setString("VIDE")
    MonDocument.CurrentController.Select(Cellule)
    MsgBox "RAZ du contenu de la cellule"
    Cellule.setString("")

End Sub

Dans cette petite macro je positionne le curseur sur la dernière cellule 
non vide à partir de la sélection de la première cellule de la zone 
concernée.
Seulement CurrentSelection, ce qui est normal, se positionne dans la 
colonne la plus à droite lorsqu'il y a des cellules adjacentes non vides.
Existe-t-il une procédure pour faire en sorte que le curseur reste 
toujours dans la colonne concernée par la sélection.
Merci de vos bons soins.
Michel B.
--

ALGOL - Formation - Coaching Bureautique
/5 rue de Vélantan/
*37130* Mazières de Touraine

http://www.inforbur.com


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