Jean-Baptiste FAURE a écrit :
Je voudrais donc disposer d'une fonction qui n'existe pas dans CALC,
un de ces trucs qui s'utilisent dans une cellule après un signe =.
Avant de me lancer dans l'étude de la programmation OOBasic je
voudrais savoir si c'est possible à faire.(...)
Bonjour,
Oui bien sur mais des gens plus compétent que moi peuvent en parler plus
savamment.
Cela prend une forme "Function" en OOoBasic du genre :
function TOTO(Nom_de_arguments as variant) as string
Code de la macro
End function
Par exemple cette fonction réalisée par Jovial que l'on appel en
écrivant dans une cellule "=Autonum(B8)" :
function Autonum(Arg as variant) as string 'Utilsé par A2 (voir aussi
formatage conditionnel)
Tabl = Split(Arg,".") 'on décompose dans un tableau
If Ubound(Tabl()) = 0 then 'si pas de point
Autonum = Arg & ".1" 'on index
exit Function
End if
Dim valeur as long
valeur = Tabl(Ubound(Tabl())'dernier élément du tableau
For i=0 to Ubound(Tabl())-1 'on réassemble sauf le dernier
Result = Result & Tabl(i)&"."
next i
Autonum = Result & valeur +1 'on ajoute le dernier indexé
End function
Cordialement
Patrick
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
