Bonjour
claude-2 wrote
J'aimerais vérifier avec la macro l'affichage des formule et même mieux le
forcer.
Ci-dessous un exemple qui commence par tester et afficher la valeur
courante de l'option puis qui force en affichage Excel L1C1.
Nota : l'interface ne propose pas toutes les valeurs listées sur la doc
IDL...
Cordialement
Pierre-Yves
option explicit
sub TesterConf
dim oFormulaSyntax as object
globalScope.basicLibraries.loadLibrary("Tools")
oFormulaSyntax =
getRegistryKeyContent("org.openoffice.Office.Calc/Formula/Syntax", true)
if oFormulaSyntax.hasByName("Grammar") then
select case oFormulaSyntax.grammar
case com.sun.star.sheet.AddressConvention.UNSPECIFIED
msgbox "Non spécifié...", 64, "Syntaxe des formules"
case com.sun.star.sheet.AddressConvention.OOO
msgbox "Calc A1", 64, "Syntaxe des formules"
case com.sun.star.sheet.AddressConvention.XL_A1
msgbox "Excel A1", 64, "Syntaxe des formules"
case com.sun.star.sheet.AddressConvention.XL_R1C1
msgbox "Excel L1C1", 64, "Syntaxe des formules"
case com.sun.star.sheet.AddressConvention.XL_OOX
msgbox "Excel OOX", 64, "Syntaxe des formules"
case com.sun.star.sheet.AddressConvention.LOTUS_A1
msgbox "LOTUS_A1", 64, "Syntaxe des formules"
case else
msgbox "Configuration non prévue...", 16, "Syntaxe des formules"
end select
else
msgbox "Configuration non prévue...", 16, "Syntaxe des formules"
end if
oFormulaSyntax.setPropertyValue("Grammar",
com.sun.star.sheet.AddressConvention.XL_R1C1)
oFormulaSyntax.commitChanges
end sub