1 message in org.openoffice.fr.progRE : [prog] Re:[prog] fusionner des c...
FromSent OnAttachments
Abi SAHLIJun 29, 2007 8:31 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] Re:[prog] fusionner des cellules calcActions...
From:Abi SAHLI (abi.@france-gift.com)
Date:Jun 29, 2007 8:31:37 am
List:org.openoffice.fr.prog

En fait dans mon utilisation du bout de code posté, j'utilise un modèle de
document ( ce qui évite pas mal de codage ) et dans ce modèle j'ai créé un style
que j'ai nommé 'client'. L 'application de la propriété CellStyle me permet alors de centrer , appliquer
une police particulière , etc en une seule instruction.

Sinon, il suffit d'appliquer la propriété HoriJustify à ta cellule pour la
centrer : Cell.HoriJustify = com.sun.star.table.CellHoriJustify.CENTER Comme ceci est expliqué dans la bible de programmation Open office en page 330.

Cordialement Abi SAHLI

-----Message d'origine----- De : zorglub\.1er [mailto:zorg@laposte.net] Envoyé : vendredi 29 juin 2007 12:37 À : prog Objet : [prog] Re:[prog] fusionner des cellules calc

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 pren@laposte.net 1 Go d'espace de stockage, anti-spam et anti-virus intégrés.