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 à