Bonjour, je te colle ci-dessous une partie de code qui fusionne deux cellules
afin d'avoir une grande cellule pour avoir assez de place pour un code et un
libellé :
cell = maFeuille.getCellByPosition(5, i)
cell.String = Cli & " " & NomCli
cell = maFeuille.getCellRangeByPosition(5, i, 6, i)
cell.merge (true)
cell.CellStyle = "client"
En esperant que ceci réponde à ta question.
Cordialement
Abi SAHLI
> -----Message d'origine-----
> De : zorglub\.1er [mailto:[EMAIL PROTECTED]
> Envoyé : mercredi 27 juin 2007 23:41
> À : prog
> Objet : Re: [prog] fusionner des cellules calc
>
>
> Bonjour ;0)
>
> Est il possible d'avoir un exemple simple de macro utilisant
> MergeRange ?
>
> Je souhaite savoir écrire une macro utilisant mergeRange sans
> passer par l'enregistreur de macro.
>
> L'exemple idéal serait une fusion de deux cellules dans Calc.
>
> D'ailleurs, je ne trouve pas ToggleMergeCells (et je ne sais
> pas s'il faut faire un lien entre MergeRange et
> ToggleMergeCells) dans :
>
http://api.openoffice.org/docs/common/ref/index-files/index-20.html
http://api.openoffice.org/docs/common/ref/com/sun/star/text/XTextTableCursor.html#mergeRange
Merci d'avance ;0)
>> sub Fusion
>> rem
>>
>
----------------------------------------------------------------------
>> rem define variables
>> dim document as object
>> dim dispatcher as object
>> rem
>>
>
----------------------------------------------------------------------
>> rem get access to the document
>> document = ThisComponent.CurrentController.Frame
>> dispatcher =
> createUnoService("com.sun.star.frame.DispatchHelper")
>> rem
>>
>
----------------------------------------------------------------------
>> dispatcher.executeDispatch(document,
> ".uno:ToggleMergeCells", "", 0,
>> Array())
>>
>> End Sub
Créez votre adresse électronique [EMAIL PROTECTED]
1 Go d'espace de stockage, anti-spam et anti-virus intégrés.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
