Dans la cadre du développement d'une macro sous Open Office, je dois faire un copier/coller d'une feuille à l'autre sur le même document.
Malgré mes recherches sur ce forum et sur les tutoriels disponibles, je n'ai pas réussi à appliquer les codes fournis à mon cas.
Je me suis donc lancé désespérément dans une n-ième tentative et j'ai finalement réussi de manière très simple à copier des cellules d'une feuille à l'autre.
Voici donc le code.
Code : Tout sélectionner
Sub Copier
DIM oCellule as Object
DIM MonDoc as Object
DIM MaFeuille as Object
DIM Test as string
MonDoc = ThisComponent
MaFeuille =MonDoc.sheets(4)
'Compteur de Ligne
iSrc = 0
'On compte le nombre de lignes à copier dans la page Source (Ici feuille 5)
oCellule = Mafeuille.Getcellrangebyname("C" & iSrc)
Test = oCellule.string
Do While Test <> ""
iSrc = iSrc +1
oCellule = Mafeuille.Getcellrangebyname("C" & iSrc)
Test= oCellule.string
Loop
'On souhaite commencer la copie ligne 13/Colonne G de la feuille de destination (Ici feuille 2)
LigneDest = 12
For LigneSrc = 2 to iSrc
ColonneDest = 6
For ColonneSrc = 2 to 9
'Copie des Cellules
oCellule = MonDoc.sheets(4).GetCellByPosition(ColonneSrc,LigneSrc)
CellSrc = oCellule.string
oCellule = MonDoc.sheets(1).GetCellByPosition(ColonneDest,ligneDestPre)
oCellule.string = CellSrc
ColonneDest= ColonneDest +1
Next ColonneSrc
LigneDest= LigneDest +1
Next LigneSrc
End Sub
je me suis demandé, et je demande votre aide sur ce sujet,
Y a-t-il des inconvénients à utiliser un code tel que celui la? Cela engendre-t-il quelque chose de particulier ? Ma question est difficilement exprimable
Merci de votre aide
Edit : Oublié de dire Merci, le malpoli