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:zorg...@laposte.net]
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)
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 pren...@laposte.net
1 Go d'espace de stockage, anti-spam et anti-virus intégrés.
1 message in org.openoffice.fr.progRE : [prog] fusionner des cellules calc
