Bonjour,
J'ai trouvé (je ne sais plus où ...) une macro intéressante pour copier une
plage de cellules, ci-après :
" Sub CopyRangeDemo()
Dim oDocument As Object
Dim Spreadsheet As Object
Set oDocument = ThisComponent
Set Spreadsheet = oDocument.Sheets.getByIndex(0)
REM adresse source (UNO struct)
Dim mRangeAddress_src as New com.sun.star.table.CellRangeAddress
REM adresse cible (UNO struct)
Dim mCellAddress_dest as New com.sun.star.table.CellAddress
REM 2e feuille, C3:D4
With mRangeAddress_src
.Sheet=1
.StartColumn = 2
.StartRow = 2
.EndColumn = 3
.EndRow = 3
End With
REM 1ère feuille, C3
With mCellAddress_dest
.Sheet = 0
.Column = 2
.Row = 2
End With
Spreadsheet.copyRange(mCellAddress_dest, mRangeAddress_src)
End Sub "
Or j'aimerais coller uniquement les VALEURS et non le format (comme sous excel
en fait ...), existe-t-il une fonction du type de celle-ci ? (je précise que je
voudrais lancer cette macro en boucle, pour plusieurs plages de cellules)
Merci
Jacques Le Moulec