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:[EMAIL PROTECTED] > 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 [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]
