multi-selection

[emilie]

i wish to obtain the data of zone selected by the user. This functions work very well when I am on only one page. But that does not work, when I have mutiple pages of selected.

I wish to mad a same process on severals sheets selected. but only on the zone selected on the first sheet.

oSelRange = oCurr.getRangeAddress --- propertie or method not find

Can you help me ?


Sub CancellaRigheVuote

Dim iStartCol As Integer
Dim iStartRow As Integer
Dim iEndCol As Integer
Dim iEndRow As Integer

Dim oDoc As Object
Dim oSelection As Object
Dim oSheet As Object

oDoc = ThisComponent
If Not oDoc.SupportsService("com.sun.star.sheet.SpreadsheetDocument") Then
Msgbox "Bad document"

Exit Sub
End If

oSelection = oDoc.currentSelection
If oSelection.supportsService("com.sun.star.sheet.SheetCellRanges") Then
Msgbox "Multiple selection ERROR"

Exit Sub
End If

oSheet = oSelection.Spreadsheet

With oSelection.RangeAddress
iStartCol = .StartColumn
iStartRow =.StartRow
iEndCol = .EndColumn
iEndRow = .EndRow
End With

Print iStartCol,iStartRow,iEndCol,iEndRow


End Sub

[davidh182]

.getRangeAddresses is an array consisting of all the selected blocks on the current sheet * all the selected pages.

Would help if it were an array of size one in the basic case - but you need to consider the single & multiple cases separately.

[emilie]

thank for your help
it was very useful