Bonjour,

Merci c'est super ;0)

Je me permets de modifier le code pour qu'il me soit plus
simple de lecture.

Voici une mini macro fonctionnelle qui permet une fusion de
deux cellules :

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

REM  *****  BASIC  *****


Sub ExampleFusion

thisComponent.Sheets.getByName("Feuille1").getCellByPosition(3,1).String
= "KIKO"
thisComponent.Sheets.getByName("Feuille1").getCellRangeByPosition(3,
1, 4, 1).merge(true)

End Sub

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

Toutefois, comment faire pour que le mot KIKO soit centré, au
centre des deux cellules fusionnées ?
Dans l'actuelle macro KIKO est tout à gauche dans les deux
cellules fusionnées.

Merci d'avance ;0)

ps : Il me semble que CellStyle ne soit pas utile pour une
fusion de cellules.
D'ailleurs, dans la macro cité plus bas je ne fais pas bien la
différence entre CellStyle - service et CellStyle - property

http://api.openoffice.org/docs/common/ref/index-files/index-3.html


> 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

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]

Répondre à