Jovial a écrit :
Bonjour
Merci à tous les 2 donc au niveau des fonctions de base ce n'est pas
possible
Si je regarde le bouquin de programmation p306 il ya un exemple
détaillé qui permet de d'insérer un para dans une cellule.
Je ne l'ai pas testé, mais en l'adaptant, on doit pourvoir créer une
fonction par macro
L'exemple du bouquin fonctionne.
Jean-luc
J'ai pas réussi à le faire à travers une formule appelant une
macro(Function) car il s'agit d'une chaîne qui est retournée et on
retombe sur le même problème
Je ne peux pas écrire d"autres cellules avec une function appellée par
une formule
Dans mon cas je vais directement écrire ma cellule avec la macro que je
déclenche par un évenement.(bouton)
Sub Assembler()
Dim monDocument As Object
Dim lesFeuilles As Object, maFeuille As Object
Dim maCellule As Object, monCurseur As Object
Dim special As Integer, Texte(2) as string
special = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK
monDocument = thisComponent
lesFeuilles = monDocument.Sheets
maFeuille = lesFeuilles.getByName("Feuille1")
Texte(0) = maFeuille.getCellRangeByName("A1").string
Texte(1) = maFeuille.getCellRangeByName("A2").string
Texte(2) = maFeuille.getCellRangeByName("A3").string
MaCellule = maFeuille.getCellRangeByName("B7")
MaCellule.String =""
monCurseur = maCellule.createTextCursor
maCellule.insertString(monCurseur, Texte(0), false)
maCellule.insertControlCharacter(monCurseur, special, false)
maCellule.insertString(monCurseur, Texte(1), false)
maCellule.insertControlCharacter(monCurseur, special, false)
maCellule.insertString(monCurseur, Texte(2), false)
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
