Calc – Appel des fonctions intrinsèques de Calc depuis une macro

Auteur : Laurent Godard – Conseil et Développement – dev.godard@wanadoo.fr

(c) 2003 Laurent Godard – Document placé sous les termes d'utilisation de la licence LGPL

Révision : 1

Exemple d'utilisation de la fonction intrinsèque MIN de Calc sans passer par sa définition dans une cellule. Les noms de fonctions à utiliser sont ceux de la version anglophone.

Note : Faire un copier/coller de l’ensemble.

Sub FunctionMin()
LaFonc=CreateUnoService("com.sun.star.sheet.FunctionAccess")
'Les donnees sources : feuille1 - cellules A1:A10
LesFeuilles=ThisComponent.Sheets()
LaFeuille=LesFeuilles.getByName("Feuille1")
LeRange=LaFeuille.getCellRangeByName("A1:A10")
'Arguments de la fonction
dim Arguments(0)
Arguments(0)=LeRange
result=LaFonc.callFunction("MIN",Arguments())
message="La valeur minimum est : " + result
msgbox message
end sub

Sophie Gautier

2003-05-04T09:01:58