Fonction de traduction(s) de fonctions (!)
Le
Vincent.
Salut !
J'ai vu ces derniers temps passer pas mal de questions sur
la traduction des formules.
La fonction Transcrire permet d'obtenir la traduction
d'une cellule (Fonction) en fonction de deux paramètres
(formules sous forme R1C1 ou A1 et/ou dans la langue d'Xl
ou de la macro). Par défaut, elle renvoie la fonction en
langage macro (anglais+A1).
A toutes fins utiles
Function Transcrire(Fonction As Range, Optional fR1C1 _
As Boolean = False, Optional fLocal As Boolean = False)
If fR1C1 Then
If fLocal Then
Transcrire = Fonction.FormulaR1C1Local
Else
Transcrire = Fonction.FormulaR1C1
End If
Else
If fLocal Then
Transcrire = Fonction.FormulaLocal
Else
Transcrire = Fonction.Formula
End If
End If
End Function
A+
V.
J'ai vu ces derniers temps passer pas mal de questions sur
la traduction des formules.
La fonction Transcrire permet d'obtenir la traduction
d'une cellule (Fonction) en fonction de deux paramètres
(formules sous forme R1C1 ou A1 et/ou dans la langue d'Xl
ou de la macro). Par défaut, elle renvoie la fonction en
langage macro (anglais+A1).
A toutes fins utiles
Function Transcrire(Fonction As Range, Optional fR1C1 _
As Boolean = False, Optional fLocal As Boolean = False)
If fR1C1 Then
If fLocal Then
Transcrire = Fonction.FormulaR1C1Local
Else
Transcrire = Fonction.FormulaR1C1
End If
Else
If fLocal Then
Transcrire = Fonction.FormulaLocal
Else
Transcrire = Fonction.Formula
End If
End If
End Function
A+
V.
Poser une question
AMA, tu devrais rajouter un petit test sur la présence ou non d'une formule dans
la cellule (.hasformula) et réagir d'une façon appropriée (retourner la Valeur
par exemple) si le test est négatif.
Prends bien note de ta chance de pouvoir faire traduire les formules avec l'aide
de ta version Excel. C'est pas tout le monde qui le peut ;-))
Salutations,
Daniel M.
"Vincent." news:0a3301c39d40$71f73500$
Salut !
J'ai vu ces derniers temps passer pas mal de questions sur
la traduction des formules.
La fonction Transcrire permet d'obtenir la traduction
d'une cellule (Fonction) en fonction de deux paramètres
(formules sous forme R1C1 ou A1 et/ou dans la langue d'Xl
ou de la macro). Par défaut, elle renvoie la fonction en
langage macro (anglais+A1).
A toutes fins utiles...
Function Transcrire(Fonction As Range, Optional fR1C1 _
As Boolean = False, Optional fLocal As Boolean = False)
If fR1C1 Then
If fLocal Then
Transcrire = Fonction.FormulaR1C1Local
Else
Transcrire = Fonction.FormulaR1C1
End If
Else
If fLocal Then
Transcrire = Fonction.FormulaLocal
Else
Transcrire = Fonction.Formula
End If
End If
End Function
A+
V.
J'ai bien pensé faire un test, mais finalement pourquoi
faire ? dans la mesure où cette fonction renvoie la valeur
de la cellule s'il n'y a pas de formule à transcrire...
Evidemment, cette petite fonction de rien perd de son
intérêt dès qu'Excel est en anglais !
D'ailleurs, une véritable amélioration consisterait, si
cela est possible (j'ai pas trouvé), à changer
momentanément la langue d'XL pour traduire en une langue à
rentrer en paramètre...
+
;-)
Et si, d'aventure, tu voulais persister, je ne saurais trop te conseiller
d'aller jeter un oeil là :
http://disciplus.simplex.free.fr/cl...rmules.zip
Ca peut freiner qques velléités ;-)
AV
Pour les tests, ça marche bien sur ma machine (xl2000
français)...
En fait, c'est plus pour aider à la saisie de lignes
d'ExecuteExcel4Macro qu'autres choses.
Cela dit, le classeur de traduction est assez joli dans le
genre ;-))
Juste un test comme ça :
.=ALEA.ENTRE.BORNES(10;50)
A traduire en anglais....
AV