Fonction de traduction(s) de fonctions (!)

Salut !
J'ai vu ces derniers temps passer pas mal de questions sur=20
la traduction des formules.
La fonction Transcrire permet d'obtenir la traduction=20
d'une cellule (Fonction) en fonction de deux param=E8tres=20
(formules sous forme R1C1 ou A1 et/ou dans la langue d'Xl=20
ou de la macro). Par d=E9faut, elle renvoie la fonction en=20
langage macro (anglais+A1).

A toutes fins utiles...


Function Transcrire(Fonction As Range, Optional fR1C1 _
As Boolean =3D False, Optional fLocal As Boolean =3D False)

If fR1C1 Then
If fLocal Then
Transcrire =3D Fonction.FormulaR1C1Local
Else
Transcrire =3D Fonction.FormulaR1C1
End If
Else
If fLocal Then
Transcrire =3D Fonction.FormulaLocal
Else
Transcrire =3D Fonction.Formula
End If
End If

End Function


A+=20

V.