Le Mercredi 4 Octobre 2006 18:18, joel a écrit : > Peut-être est-il aussi possible de simplifier le code généré par > l'enregistreur lors des collages successifs, mais je ne sais pas comment > faire.
Bon, je vais prendre la question par l'autre bout, puisque telle que je l'avais posée, ça n'inspire personne :) J'essaierai ensuite de trouver une solution pour résoudre la question de départ... Voilà donc où j'en suis dans mes essais de simplification : Sub TEST Dim document As Object Dim oCellEcriture As Object, oFeuille As Object dim dispatcher as object Dim Ligne as Integer, Col as Integer document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") oFeuille = document.Sheets.getByName("Feuille1") dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "ToPoint" args1(0).Value = "ThisComponent.getCurrentSelection" dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1()) dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array()) Col = "ThisComponent.getCurrentSelection" For Ligne = 0 to 7 oCellEcriture = oFeuille.getCellByPosition(Col,Ligne) oCellEcriture.setValue(args1(0) + Ligne) Next Ligne End Sub J'ai fait pas mal d'essais, j'y ai passé pas mal de temps, mais j'ai toujours des erreurs. J'en appelle à votre bon coeur, messieurs-dames... -- Joël --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]