https://bugs.freedesktop.org/show_bug.cgi?id=70883
--- Comment #4 from [email protected] --- Hello, there is the same problem on : 4.3.5-1 Twice Alternatives (manuel) with : CODE : Sub CollageSelection oDoc = ThisComponent oPlage = oDoc.CurrentSelection ' Plage sélectionnée oFeuille = oDoc.Sheets.getByName("Feuille1") ' Nom de la feuille où coller oColleCellule = oFeuille.getCellRangeByName("A1") ' Cellule où démarre le collage If oPlage.supportsService("com.sun.star.table.CellRange") Then oFeuille.copyRange(oColleCellule.CellAddress, oPlage.RangeAddress) Else ' A compléter si plages discontigües msgBox "Sélectionnez au moins deux cellules contigües" EndIf End Sub Or with : CODE : Sub CopyZoneMemeClasseur() Dim oDoc as Object, oRange as Object, aCopier as Object oDoc = thisComponent oRange = oDoc.Sheets(0).getCellRangeByName("H2:H9") ' la zone à copier oDoc.CurrentController.select(oRange) 'Sélection de la zone aCopier = oDoc.CurrentController.getTransferable() 'Copie oRange = oDoc.Sheets(0).getCellRangeByName("A1") 'Première cellule pour recopie de la zone oDoc.CurrentController.select(oRange) 'Selection de la cellule oDoc.CurrentController.insertTransferable(aCopier) 'Transfert des données End Sub Thank you -- You are receiving this mail because: You are the assignee for the bug.
_______________________________________________ Libreoffice-bugs mailing list [email protected] http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
