Si j'ai bien compris,
C'est là que se trouve l'erreur
Cellule = MaFeuille.GetCellByPosition(Curseur.RangeAddress.*EndColumn*,
Curseur.RangeAddress.EndRow + 1)
Cordialement
Mr Sandy-Pascal Andriant
Le 14/06/2014 17:10, Algol Formation a écrit :
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.
--
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
