[résolu] Macro et bordures de cellules dans Calc.

[Toinou]

Bonjour,
je ne parviens pas à barrer une cellule avec une macro :
Pour la couleur du fond ou pour le pourtour de la cellule : Pas de problème...
Mais pour la barrer : rien à faire...
Des solutions ?
Merci et bonne journée.

[cris59]

Code : Tout sélectionner

dim monTrait as new com.sun.star.table.BorderLine
monDoc = thisComponent
maCellule = monDoc.Sheets(0).getCellByPosition(2,5)
monTrait.Color = RGB(120,120,120)
monTrait.OuterLineWidth = 30
maCellule.DiagonalBLTR = monTrait  'Bottom Left Top Right, en bas à gauche vers en haut à droite
maCellule.DiagonalTLBR = monTrait  'Top Left Bottom Right, en haut à gauche vers en bas à droite

cris59

[Toinou]

Super !
Je viens de modifier ton code pour cocher des cellules sélectionnées:

Code : Tout sélectionner

dim monTrait as new com.sun.star.table.BorderLine
monDoc = thisComponent
maCellule = monDoc.CurrentSelection
monTrait.Color = RGB(120,120,120)
monTrait.OuterLineWidth = 30
maCellule.DiagonalBLTR = monTrait  'Bottom Left Top Right, en bas à gauche vers en haut à droite
maCellule.DiagonalTLBR = monTrait  'Top Left Bottom Right, en haut à gauche vers en bas à droite

Donc cette macro me convient parfaitement.
Merci et salut.