Bonjour gilles
Bonsoir,
es-tu sûr d'avoir besoin d'une macro pour cela?
Soit A et B les deux colonnes contenant les cellules à fusionner.
en C1, tu écris = A1 & B1
que tu dupliques sur les 5000 lignes.
le resultat est visuellement le meme mais une fusion n'est pas une
concatenation
embryon de boucle (non testé)
----------------------------------------------------------------------
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "MoveContents"
args2(0).Value = true
for i = 2 to 5000
args1(0).Name = "ToPoint"
args1(0).Value = "$B$" + cstr(i)":$C$"+cstr(i)
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0,
args2())
next i
----------------------------------------------------------------------
il y a beaucopu plus simple avec l'API directe mais comem il semble y
avoir urgence ...
HTH
laurent
--
Laurent Godard <[EMAIL PROTECTED]> - Ingénierie OpenOffice.org
Indesko >> http://www.indesko.com
Nuxeo CPS >> http://www.nuxeo.com - http://www.cps-project.org
Livre "Programmation OpenOffice.org", Eyrolles 2004
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]