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 à [email protected] 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
