Rebonjour,

Ci-apres une de mes 4 macros "elementaires" - les 4 sont quasi identiques :

sub EditionCalculDPU

dim document as object, dispatcher as object, PosFeuille As Object, Aediter() dim args1(0) as new com.sun.star.beans.PropertyValue dim args4(5) as new com.sun.star.beans.PropertyValue

document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

PosFeuille = ThisComponent.Sheets.getByName("calculDPU").getCellRangeByName("A1") ThisComponent.getCurrentController.select(PosFeuille)

args1(0).Name = "ToPoint" args1(0).Value = "A5:K35" dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1()) dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

args1(0).Name = "ToPoint" args1(0).Value = "A44" dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

args4(0).Name = "Flags" : args4(0).Value = "A" args4(1).Name = "FormulaCommand" : args4(1).Value = 0 args4(2).Name = "SkipEmptyCells" : args4(2).Value = false args4(3).Name = "Transpose" : args4(3).Value = false args4(4).Name = "AsLink" : args4(4).Value = true args4(5).Name = "MoveMode" : args4(5).Value = 4 dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args4())

ThisComponent.Print(Aediter())

args1(0).Name = "Flags" args1(0).Value = "A" dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args1())

args1(0).Name = "BackgroundColor" args1(0).Value = 11776947 dispatcher.executeDispatch(document, ".uno:BackgroundColor", "", 0, args1())

end sub

NB : j'ai fait le meme type de manip (en plus etoffe) sous Excel avant de m'essayer a OOo - ça marche sans pb, meme avec 20 ou 25 feuilles a editer d'un seul coup (on s'en sert professionnellement regulierement, donc il faut que ça fonctionne bien d'autant que j'ai des collegues non inities a la programmation / developpement). C'est pourquoi je me demandais si c'etait lie a OOo ... Merci de voir si c'est moi qui m'y prends mal ...

J. Le Moulec