Bonjour,
Il ne s'agit pas de copier le contenu d'une plage de cellule dans mon cas
dans une autre feuille..
Il s'agit de convertir rapidement, dans la même feuille, le contenu de
données d'une cellule (ou colonne de même type de données) de type Délimité
par "/" ,(exemple : 01/10/2010), dans 3 cellules adjacentes comme le fait
Excel .
exemple : (01/10/2010 ) est converti en : 1ère cellule adjacente "01"; 2ème
cellule adjacente "10"; 3ème cellule adjacente "2010", sans utiliser de
macro .
Cordialement.
B.Mauget
--------------------------------------------------
From: "DEPREZ Christophe PREF35 SSIT"
<christophe.dep...@ille-et-vilaine.gouv.fr>
Sent: Tuesday, November 09, 2010 3:22 PM
To: <users@fr.openoffice.org>
Subject: [users-fr] Macro - Copier coller le contenu d'une plage de cellule
Bonjour à tous,
J'ai la routine suivante :
' --------------------------------------------------------
' Routine permettant de copier une plage de cellules de feuille de calcul
vers une autre
' DSI
'
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 3e feuille "Paiement", D1:D450
With mRangeAddress_src
.Sheet=3
.StartColumn = 2
.StartRow = 1
.EndColumn = 2
.EndRow = 450
End With
REM 2eme feuille "Edition", C3
With mCellAddress_dest
.Sheet = 2
.Column = 2
.Row = 1
End With
Spreadsheet.copyRange(mCellAddress_dest, mRangeAddress_src)
End Sub
Le contenu de la plage de cellule de la feuille "Paiement" est le résultat
de la formule suivante
=SI(RECHERCHEV(A49;$DSI.$A$2:$D$354;1)=A49;RECHERCHEV(A49;$DSI.$A$2:$D$354;3))
Le but est de récupérer la valeur de la formule ci dessus (équivalent à un
copier collage spéciale et décocher "formule")
Le résultat du copier coller est =SI(RECHERCHEV(#REF
!49;$DSI.$A$2:$D$354;1)=#REF !49;RECHERCHEV(#REF !49;$DSI.$A$2:$D$354;3))
donc #REF !dans la cellule :-(
Un grand merci pour vos lumières
Christophe
---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org
For additional commands, e-mail: users-h...@fr.openoffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org
For additional commands, e-mail: users-h...@fr.openoffice.org