[Macro - Calc] Fusionner une plage de cellule

[Jgotheboss]

Bonjour à tous,

Je suis débutant dans la programmation.
J'aimerai fusionner les plages A1:E1, A2:E2, ... An:En.
En regardant sur la FAQ j'ai trouvé ceci:

Envoyé par SilkyRoad

Sub FusionnerPlageCellules
Dim Feuille As Object
Dim Plage As Object

Feuille = ThisComponent.Sheets.getByIndex(0)
Plage = Feuille.getCellRangeByPosition( 3 , 9 , 6 , 9 ) 'D10:G10
Plage.Merge( True )

Feuille.getCellByPosition( 3 ,9 ).setString("test")
End Sub

En le modifiant celà donne pour moi:

For r=0 To q
Feuille = ThisComponent.Sheets.getByIndex(0)
Plage = Feuille.getCellRangeByPosition( 0 , r , 4 , r )
Plage.Merge( True )
Next r

Celà fonctionne mais le problème que j'ai c'est que celà garde le texte présent uniquement de la colonne A, Alors que moi je souhaiterai garder le texte des colonnes A, B, C, D et E.

Merci de m'aider.

Jgo

Si je n'ai pas été assez clair, dites le moi, je mettrai un exemple.

[Jgotheboss]

Voici un exemple:
Ce que j'ai au départ:


Ce que je voudrai:


Ce que j'obtiens avec la méthode donnée dans la FAQ Open Office:



Remarque j'arrive à obtenir ce que je veux en utilisant l'éditeur de macro, mais pas moyen de l'automatiser pour un nombre n de lignes...

[Jgotheboss]

Si personne ne me répond, j'en déduis que ce que je demande est impossible...

Du coup j'utilise l'autre méthode qui est limitée.

J'ai une autre question en rapport avec le même sujet.
Quand lorsque dans ma macro, des cellules sont fusionnées, j'obtiens ce message:


Quelqu'un saurait comment faire pour valider automatiquement?
Je clique sur oui une bonne centaine de fois par jour! ^^
Merci

[Bidouille]

La section Suprême de code du forum officiel donne un exemple :
http://user.services.openoffice.org/...opic11407.html

[Jgotheboss]

Je vous remercie beaucoup! (avec un peu de retard...)

C'est exactement ce que je recherchais. Ca va m'être d'une grande aide!