Re: [fr-users] Objet CurrentSelection

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