5 messages in org.openoffice.fr.prog[prog] Calc,plage de cellules,Copier/...
FromSent OnAttachments
jac...@free.frDec 22, 2004 12:07 am 
Agnès SimonetDec 22, 2004 12:37 am 
jac...@free.frDec 22, 2004 3:28 am 
Bernard MarcellyDec 22, 2004 5:53 am 
Bernard MarcellyDec 22, 2004 5:56 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:[prog] Calc,plage de cellules,Copier/CollerValeurActions...
From:jac...@free.fr (jac@free.fr)
Date:Dec 22, 2004 12:07:53 am
List:org.openoffice.fr.prog

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