[Résolu][Calc] Collage spécial -fin de tableau autre feuille

[NUMIS88]

Bonjour à tous,

Je me permet de solliciter à nouveau la communauté, suite à la problématique déjà formulées dans le post suivant : https://forum.openoffice.org/fr/forum/viewtopic.php?f=8&t=62846#p342474

En effet, je souhaitais effectuer une copie et un collage spécial d'une plage de cellules d'une feuille, vers une autre feuille, en fin de tableau et à la première ligne non remplie.

Un code fonctionnel m'a été proposé par Dude, seulement je n'avais pas fait attention, il ne prend pas en compte le collage spécial.

Code : Tout sélectionner   AgrandirRéduire

    Sub CopierCollerEntreFeuilles()
       nLigne = RENVOI_LIGNE_VIDE("Cumul.A1:A1000")
       oDoc = ThisComponent
       oCopieFeuille= oDoc.Sheets.getByName("feuille_initiale") ' Nom de la feuille à copier
       oColleFeuille = oDoc.Sheets.getByName("Cumul") ' Nom de la feuille où coller
       oPlage = oCopieFeuille.getCellRangeByName("A2:D16") ' La plage à copier   
       oColleCellule = oColleFeuille.getCellByPosition(0, nLigne)  ' Cellule où démarre le collage
       oColleFeuille.copyRange(oColleCellule.CellAddress, oPlage.RangeAddress)   
    End Sub

    Function RENVOI_LIGNE_VIDE(sPlage)
       aPlage = split(sPlage,".")
       oFeuil = ThisComponent.Sheets.getByName(aPlage(0))
       oZone = oFeuil.getCellRangeByName(aPlage(1))
       oPlage = oZone.queryEmptyCells.RangeAddresses
       RENVOI_LIGNE_VIDE = oPlage(0).StartRow
    End Function

Je joins un modèle résumant la problématique et les macros dont je disposais, mais en deux parties, que je ne parvenais pas à cumuler.

En vous remerciant par avance, pour l'aide que vous pourrez m'apporter.

Cordialement,

[Dude]

Salut,

effectuer une copie et un collage spécial d'une plage de cellules d'une feuille, vers une autre feuille

Dans ce cas, passe plutôt par la propriété DataArray.
Plus souple et plus adapté à ce cas.

[NUMIS88]

Salut Dude,

Effectivement, je l'avais déjà regardé, à travers les lignes suivantes, mais je ne suis pas parvenu à les intégrer dans la macro que tu m'as proposée.

Code : Tout sélectionner   AgrandirRéduire

Dest.DataArray = Source.DataArray

et

Code : Tout sélectionner   AgrandirRéduire

  Dest.DataArray = Source.DataArray

Tu pourrais m'y aider?

Merci par avance,

[Dude]

Salut,

Voici un simple exemple d'utilisation :

Code : Tout sélectionner   AgrandirRéduire

Sub DupliquePlage   
   'Les plages source et destination doivent avoir la même taille
   sSrc = "A2:D16"
   sDst = "F2:I16"
   
   oDoc = thisComponent
   oFeuille = oDoc.currentController.ActiveSheet
   oSrc = oFeuille.getCellRangeByName(sSrc)
   oDst = oFeuille.getCellRangeByName(sDst)
   oDst.DataArray = oSrc.DataArray
End Sub

Je te laisse le soin d'adapter la plage destination et le paramétrage des feuilles concernées.

[NUMIS88]

Merci encore,

Mais je ne parviens toujours pas à associer le tout, sur une autre page, comme dans mon exemple...

Cordialmeent,

[Dude]

oCopieFeuille= oDoc.Sheets.getByName("feuille_initiale") ' Nom de la feuille à copier

Je ne vois pas l'intérêt d'un collage spécial pour les données de cette feuille qui ne comprend aucune formule.

[NUMIS88]

Re Salut,

Cet un exemple que j'ai fait pour le forum.

Dans le fichier réel, j'ai besoin de coller les résultats des cellules, pas leurs formules.

Cela se passe comme dans l'exemple, sur une autre feuille.

Cordialement,

[Dude]

Où se trouve la difficulté ?

Code : Tout sélectionner   AgrandirRéduire

Sub CopierCollerEntreFeuilles()
   nLigne = RENVOI_LIGNE_VIDE("Cumul.A1:A1000")
   sSrc = "A2:D16"
   sDst = "A" & (nLigne + 1) & ":D" & (nLigne + 15)
   
   oDoc = ThisComponent
   oCopieFeuille= oDoc.Sheets.getByName("feuille_initiale") ' Nom de la feuille à copier
   oColleFeuille = oDoc.Sheets.getByName("Cumul") ' Nom de la feuille où coller
   oPlage = oCopieFeuille.getCellRangeByName(sSrc) ' La plage à copier   
   oSrc = oCopieFeuille.getCellRangeByName(sSrc)
   oDst = oColleFeuille.getCellRangeByName(sDst)
   oDst.DataArray = oSrc.DataArray   
End Sub

[NUMIS88]

Re,

honnêtement, je n'aurais jamais trouvé tout seul, j'ai l'impression que ça marche.

Je remettrai en ligne le fichier.

Cela pourrait être mis en suprême de codes, car c'est vraiment le genre de macro très utile.

Rien qu'à mon taf, on est déjà deux à avoir la même demande!

Cordialement, et merci beaucoup,

[Dude]

Cela pourrait être mis en suprême de codes, car c'est vraiment le genre de macro très utile.

C'est déjà le cas.

[NUMIS88]

Re,

Comme promis, le fichier définitif, avec la macro complète qui fonctionne à merveille.

Comme je te le disais, cette macro mérite vraiment d'être ajouté en suprême, elle pourra rendre service à bon nombre d’utilisateurs, j'en suis persuadé.

Merci infiniment pour ton aide, je te laisse le soin de clôturer le post, si tu souhaites y répondre.

Cordialement

[Dude]

cette macro mérite vraiment d'être ajouté en suprême

Comme je viens de l'écrire juste au dessus, c'est déjà le cas. Il suffit de prendre la peine de faire une recherche.

je te laisse le soin de clôturer le post

C'est à toi de le faire en balisant [Résolu]

[NUMIS88]

Merci pour tout

[micmac]

Comment clore correctement un sujet lorsqu'il est résolu