9 messages in org.openoffice.fr.progRe: [prog] [urgent] fusion de 2 cellules
FromSent OnAttachments
ROUSSEAU ChristopheSep 19, 2006 12:50 pm 
gilles bignebatSep 19, 2006 1:53 pm 
Laurent GodardSep 19, 2006 11:19 pm 
Thierry MunozSep 20, 2006 12:09 am 
Thierry MunozSep 20, 2006 2:20 am 
Laurent GodardSep 20, 2006 2:29 am 
Thierry MunozSep 20, 2006 2:35 am 
Thierry MunozSep 20, 2006 2:46 am 
ROUSSEAU ChristopheSep 21, 2006 11:07 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] [urgent] fusion de 2 cellulesActions...
From:Thierry Munoz (thie@free.fr)
Date:Sep 20, 2006 2:20:13 am
List:org.openoffice.fr.prog

Rebonjour, J'ai essayé le code de Laurent il marche mais il y a un "+" oublié. Je me suis permis de le rajouter dans le code ci-dessous en bleu. A bientôt, Thierry

---------------------------------------------------------------------- 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

----------------------------------------------------------------------