Bonjour,
L'enregistreur de macros est un peu limité et le bug est effectivement
connu. Voici une macro simple qui vous permet de faire une bordure
équivalente pour chaque cellule de votre sélection :
Sub FillCells
Dim bordure as New com.sun.star.table.BorderLine
oSelect=ThisComponent.CurrentSelection
oColumn=oselect.Columns
oRow=oSelect.Rows
With bordure
.color = RGB(0,0,0)
.OuterLineWidth = 30
end With
For nc= 0 To oColumn.getCount-1
For nr = 0 To oRow.getCount-1
oCell=oselect.getCellByPosition (nc,nr)
oCell.LeftBorder = bordure
oCell.RightBorder = bordure
oCell.TopBorder = bordure
oCell.BottomBorder = bordure
Next nr
Next nc
End Sub
Cette macro est inspirée d'une macro d'Andrew Pytoniak. Il tient un
document contenant une foule de petites macros très utiles. Ce n'est
peut-être pas le plus simple pour démarrer la programmation en
StarBasic, mais il y a là de nombreux exemples utiles assez simples à
adapter : http://www.pitonyak.org/AndrewMacro.odt
--
Bien à vous.
Pierre Wirtz
VersusMind
Vous accompagne vers la bureautique libre
----------------------------------
www.versusmind.eu
[EMAIL PROTECTED]
Tél : + 33 (0)3 83 27 22 03
Gérard Laloux a écrit :
Yeps,
J'ai créé un classeur dans lequel, je gère certains formatages de
cellules avec des boutons auxquels sont assignées des macros.
Ces macros, je les ai réalisées avec l'enregistreur de macros. Elles
fonctionnent toutes correctementc sauf une.
>> Il s'agit d'une macro demandant l'encadrement complet de plusieurs
cellules lorsqu'elles sont sélectionnées (c.à.d. : bordures
extérieures et intérieures - je précise que ce n'est pas la macro qui
fait la sélection des cellules ; elles doivent l'être avant de lancer
la macro). Le problème est que lorsque j'active cette macro, seules
les bordures extérieures sont réalisées ... :'(
Merci d'avance pour le coup de main.
Le classeur en question est consultable ici :
http://cjoint.com/?lhmd5DeEZi
-----------------
Gérard Laloux
B - 6210 Rèves
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
