Anglais ---> Français

Bonsoir Serg,

Un table de traduction pourrait-elle convenir ?

Function stats(plage, fonction)
dim FrenchFonc as string
select case ucase(fonction)
Case "SOMME"
FrenchFonc = "SUM"
Case "MOYENNE"
FrenchFonc = "AVERAGE"
Case "MODE"
FrenchFonc = "MODE"
etc....
End Select

stats = Evaluate(FrenchFonc & "(" & _
plage.Address(external:=True) & ")")
End Function


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"garnote" <rien@absent.net> a écrit dans le message de
news:zvcMc.110107$eO.39245@edtnps89...

Bonsoir,

Contexte :
1. Une liste de validation en F1 avec ces données :
SUM
AVERAGE
MEDIAN
MODE
COUNT
MAX
MIN
2. Une plage ( D1:D10) contenant des valeurs numériques.
3. Une fonction personnalisée :
Function stats(plage, fonction)
stats = Evaluate(fonction & "(" & _
plage.Address(external:=True) & ")")
End Function

Alors la formule suivante fait bien son boulot :
=stats(D1:D10;F1)

Question : Comment la faire fonctionner en français ?
SOMME
MOYENNE
MÉDIANE
...

Serge

c'est pas une bonne idée Serge, voie la réponse d' Alain dans ce fil,

Objet: ecrire formule dans macro..plutôt que récupérée dans une cellule
de feuille
Date: Thu, 22 Jul 2004 14:30:37 +0200
De: Michel.P <prive.ma-boite_sans_spam@laposte.net>

isabelle

Bonsoir,

Contexte :
1. Une liste de validation en F1 avec ces données :
SUM
AVERAGE
MEDIAN
MODE
COUNT
MAX
MIN
2. Une plage ( D1:D10) contenant des valeurs numériques.
3. Une fonction personnalisée :
Function stats(plage, fonction)
stats = Evaluate(fonction & "(" & _
plage.Address(external:=True) & ")")
End Function

Alors la formule suivante fait bien son boulot :
=stats(D1:D10;F1)

Question : Comment la faire fonctionner en français ?
SOMME
MOYENNE
MÉDIANE
...

Serge

Bonjour Serge,

Function stats(plage As Range, fonction As String)
Select Case UCase(fonction)
Case "SOMME": stats = Application.Sum(plage)
Case "MOYENNE": stats = Application.Average(plage)
Case "MEDIANE": stats = Application.Median(plage)
Case "Mode": stats = Application.Mode(plage)
'etc...
End Select
End Function


ChrisV


"garnote" <rien@absent.net> a écrit dans le message de
news:zvcMc.110107$eO.39245@edtnps89...

Bonsoir,

Contexte :
1. Une liste de validation en F1 avec ces données :
SUM
AVERAGE
MEDIAN
MODE
COUNT
MAX
MIN
2. Une plage ( D1:D10) contenant des valeurs numériques.
3. Une fonction personnalisée :
Function stats(plage, fonction)
stats = Evaluate(fonction & "(" & _
plage.Address(external:=True) & ")")
End Function

Alors la formule suivante fait bien son boulot :
=stats(D1:D10;F1)

Question : Comment la faire fonctionner en français ?
SOMME
MOYENNE
MÉDIANE
...

Serge

Merci Joël, Isabelle et ChrisV,

C'est une fonction que j'ai dégoté dans le volume
de JW «Formules et Fonctions Excel 2002»
(pages 630 et 631).
On y trouve une version «longue» avec Select Case et une
version «courte» sans Select Case.
En réalité, je voulais savoir s'il était possible
d'utiliser la version courte en français.

Serge

"Joel" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:cdrla3$l7l$1@news-reader1.wanadoo.fr...

Bonsoir Serg,

Un table de traduction pourrait-elle convenir ?

Function stats(plage, fonction)
dim FrenchFonc as string
select case ucase(fonction)
Case "SOMME"
FrenchFonc = "SUM"
Case "MOYENNE"
FrenchFonc = "AVERAGE"
Case "MODE"
FrenchFonc = "MODE"
etc....
End Select

stats = Evaluate(FrenchFonc & "(" & _
plage.Address(external:=True) & ")")
End Function


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"garnote" <rien@absent.net> a écrit dans le message de
news:zvcMc.110107$eO.39245@edtnps89...

Bonsoir,

Contexte :
1. Une liste de validation en F1 avec ces données :
SUM
AVERAGE
MEDIAN
MODE
COUNT
MAX
MIN
2. Une plage ( D1:D10) contenant des valeurs numériques.
3. Une fonction personnalisée :
Function stats(plage, fonction)
stats = Evaluate(fonction & "(" & _
plage.Address(external:=True) & ")")
End Function

Alors la formule suivante fait bien son boulot :
=stats(D1:D10;F1)

Question : Comment la faire fonctionner en français ?
SOMME
MOYENNE
MÉDIANE
...

Serge