Bonjour,
Merci pour cette réponse ;0)
Il me semble qu'on peut obtenir un résultat similaire en
ouvrant Calc puis allant dans Outils->Macros-> Enregistrer une
macro.
Une fenêtre apparaît alors ; elle se nomme "Enregistrement".
On sélectionne alors plusieures cellules.
Puis on les fusionne en allant dans Format->Fusionner les
cellules->Fusionner les cellules.
Enfin, on clic sur "Terminer l'enregistrement" dans la fenêtre
nommée "Enregistrement".
Une fenêtre apparaît alors, nommée "Macros OpenOffice.org Basic".
Là on enregistre la macro enregistrée dans un module, une
macro déjà existant(e) ou dans un nouveau module, une nouvelle
bibliothèque, macro.
------------------------------------
sub Fusion
rem
----------------------------------------------------------------------
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
----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$E$8"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0,
args1())
rem
----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$D$8:$F$8"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0,
args2())
rem
----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ToggleMergeCells",
"", 0, Array())
end sub
--------------------------------------------------
Est ce que tu t'es inspiré de ce modèle ou tu t'y es pris
autrement avec l'enregistreur de macro pour arriver à la macro
que tu m'as écrite ?
D'ailleurs, il me semble qu'avec la fonction mergeRange(), on
pourrait faire la même chose.
http://api.openoffice.org/docs/common/ref/com/sun/star/text/XTextTableCursor.html#mergeRange
Mais je ne sais comment m'y prendre.
Merci d'avance ;0)
> Hello,
>
> Et voici quelque chose qui devrait t'aider...
>
> sub Fusion
> rem
>
----------------------------------------------------------------------
> 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
>
> ---
> Christophe Mathysen
> >Le lun 18/06/2007 à 14:14, zorglub.1er a écrit :
> >
> > Bonjour,
> >
> > Comment fusionner plusieures cellules dans calc avec une
macro ?
> >
> > Il me semble qu'on peut utiliser la méthode mergeRange pour
> > fusionner des cellules de tableau dans Writer, mais je ne sais
> > pas comment l'utiliser, m'en servir dans Calc.
> >
> > Sinon, j'ai pensé à une autre solution (je ne sais pas si
> > c'est réalisable) qui est d'utilisée à travers une macro la
> > "fonction" déjà existante dans Format->Fusionner les cellules.
> >
> > Ainsi, dans la macro on "appele" la fonction "Fusionner les
> > cellules" qu'on trouve dans Format->Fusionner les cellules.
> >
> > Mais je ne sais pas comment m'y prendre.
> >
> > D'avance merci pour votre aide ;0)
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]
