[Résolu][Calc] Grouper des lignes

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Elicul15
Membre lOOyal
Membre lOOyal
Messages : 35
Inscription : 09 févr. 2007 10:21

[Résolu][Calc] Grouper des lignes

Message par Elicul15 »

Bonjour à tous,

Je cherche à automatiser la réalisation d'un plan sur des feuilles Calc.
Or je ne sais même pas dans quelle direction chercher (j'ai cherché sur XRay, mais je n'arrive pas à repérer mes groupes).

Manuellement, il suffit de sélectionner les lignes (ou les colonnes) et de passer par le menu Données / Plan et Groupes / Grouper.

Quelqu'un pourrait-il me donner une piste SVP ?
En PJ un exemple de ce que je souhaite obtenir.

D'avance merci
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Dernière modification par Elicul15 le 30 oct. 2019 07:10, modifié 1 fois.
Win 10 - LiBo 6.0.7.2 (x64 - Obligation de version)
Avatar de l’utilisateur
OOotremer971
ManitOOu
ManitOOu
Messages : 2744
Inscription : 16 avr. 2010 13:31

Re: [Calc] Grouper des lignes

Message par OOotremer971 »

Bonjour,

Pour grouper :

Code : Tout sélectionner

maFeuille.Group(maZone.GetRangeAddress(),com.sun.star.table.TableOrientation.ROWS)
pour dégrouper :

Code : Tout sélectionner

maFeuille.UnGroup(maZone.GetRangeAddress(),com.sun.star.table.TableOrientation.ROWS)

Code : Tout sélectionner

Sub Main
maFeuille = Thiscomponent.Sheets(0)
maZone = maFeuille.GetCellRangeByName("A50:A60")
maFeuille.Group(maZone.GetRangeAddress(),com.sun.star.table.TableOrientation.ROWS)
End Sub
A+
En principe, toujours à jour des dernières versions dites stables
AOO
LibreOffice
Debian 10 et 11
Elicul15
Membre lOOyal
Membre lOOyal
Messages : 35
Inscription : 09 févr. 2007 10:21

Re: [Calc] Grouper des lignes

Message par Elicul15 »

Merci OOotremer971.
Win 10 - LiBo 6.0.7.2 (x64 - Obligation de version)