[fr-users] Re: Format sur une colonne

Bonjour


Michel Blanchard wrote
> Avec votre aide j'ai trouvé une solution.

Cf. ma réponse dans ton autre message il n'est pas nécessaire de
nommer pour accéder à la colonne.


Michel Blanchard wrote
> Par contre je n'ai toujours rien trouvé sur le formatage de la colonne 
> en date longue.

Je n'ai pas souvenir d'avoir vu cette demande, j'ai peut-être loupé
un message ?

Quoiqu'il en soit :

Sub PysColonne

dim oDoc as object, oFeuille as object, oCol as object
dim oLocalSettings As New com.sun.star.lang.Locale
dim lCleFormat as long

oDoc = thiscomponent
oFeuille = oDoc.sheets.getByName("Feuille1")
'oCol = oFeuille.columns.getByName("C")
oCol = oFeuille.columns.getByIndex(2)

oLocalSettings = oDoc.CharLocale
lCleFormat = oDoc.NumberFormats.queryKey("NNNNJ MMMM AAAA",
oLocalSettings,false)

if lCleFormat > 0 then
        with oCol
                .NumberFormat = lCleFormat
                .CellBackColor = RGB(100,220,220) 
                .CharFontName = "Open Sans"
        end with
end if


End Sub

Cordialement
Pierre-Yves



--
View this message in context: 
http://nabble.documentfoundation.org/Format-sur-une-colonne-tp4152595p4152603.html
Sent from the Users mailing list archive at Nabble.com.

-- 
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés