Bonjour à tous,
Je cherchais justement le code permettant de faire fusionner 2 cellules,
voilà qui va m'aider.
Par contre, plus simple avec l'API directe ? Pourrais-tu nous préciser
cela ?
Je n'ai rien trouvé concernant la fusion de 2 cellules c'est à dire des
exemples de codes simples pour fusionner 2 cellules tout simplement.
Il n'y avait que le dispatcher qui m'avait indiqué ToggleMergeCells.
Merci à tous,
Thierry
Laurent Godard a écrit :
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
9 messages in org.openoffice.fr.progRe: [prog] [urgent] fusion de 2 cellules
