OVH Cloud OVH Cloud

Formules dynamiques

3 réponses
Avatar
ThC
Bonjour,
Dans une cellule nommée TOTO par exemple, j'ai mis la formule suivante:
VLOOKUP(montant;Table_Calcul_BTT;2;TRUE) sans le "="
J'aimerai récuperer le contenu de cette cellule TOTO et l'executer dans
une autre cellule.
En mettant :

="="&TOTO

dans une nouvelle cellule j'obtiens bien à l'affichage
=VLOOKUP(montant;Table_Calcul_BTT;2;TRUE)
mais il n'y a pas execution.

Quelqu'un aurait-il le truc pour forcer l'execution ?

Merci d'avance et bon feu d'artifice

--
ThC

3 réponses

Avatar
anonymousA
Bonjour,

en utilisant une fonction personnalisée que tu écris dans un module
standard quelconque du projet de de ton classeur

Function evalformula(rng As Range)

evalformula = Evaluate(rng.Value)

End Function

tu écris dans une cellule = puis Insertion/Fonction puis Personnalisée
puis tu choisis la fonction evalformula et tu te laisses guider par
l'Assistant pour aller vers la cellule "toto".

pour toi qui a Excel Anglais , cette fonction va marcher car Evaluate
n'accepte que la version Américaine des formules mais pour les
Frenchies, too bad.

A+

Bonjour,
Dans une cellule nommée TOTO par exemple, j'ai mis la formule suivante:
VLOOKUP(montant;Table_Calcul_BTT;2;TRUE) sans le "="
J'aimerai récuperer le contenu de cette cellule TOTO et l'executer dans
une autre cellule.
En mettant :

="="&TOTO

dans une nouvelle cellule j'obtiens bien à l'affichage
=VLOOKUP(montant;Table_Calcul_BTT;2;TRUE)
mais il n'y a pas execution.

Quelqu'un aurait-il le truc pour forcer l'execution ?

Merci d'avance et bon feu d'artifice



Avatar
AV
Dans un module ordinaire :

Function EVAL_SPE(chaîne)
EVAL_SPE = Evaluate(Application.Substitute(chaîne, ";", ","))
End Function

Utilisation dans une feuille de calcul (pour ton exemple) :
=EVAL_SPE(TOTO)

AV
Avatar
anonymousA
Je ne suis pas vraiment versé dans la version Américaine d'Excel mais si
ta formule vlookup contient des ; ( points virgules ) alors il faudra
les changer en , (virgules ) pour que Evaluate fonctionne.

A+


Bonjour,

en utilisant une fonction personnalisée que tu écris dans un module
standard quelconque du projet de de ton classeur

Function evalformula(rng As Range)

evalformula = Evaluate(rng.Value)

End Function

tu écris dans une cellule = puis Insertion/Fonction puis Personnalisée
puis tu choisis la fonction evalformula et tu te laisses guider par
l'Assistant pour aller vers la cellule "toto".

pour toi qui a Excel Anglais , cette fonction va marcher car Evaluate
n'accepte que la version Américaine des formules mais pour les
Frenchies, too bad.

A+

Bonjour,
Dans une cellule nommée TOTO par exemple, j'ai mis la formule suivante:
VLOOKUP(montant;Table_Calcul_BTT;2;TRUE) sans le "=" J'aimerai
récuperer le contenu de cette cellule TOTO et l'executer dans
une autre cellule.
En mettant :

="="&TOTO
dans une nouvelle cellule j'obtiens bien à l'affichage
=VLOOKUP(montant;Table_Calcul_BTT;2;TRUE)
mais il n'y a pas execution.

Quelqu'un aurait-il le truc pour forcer l'execution ?

Merci d'avance et bon feu d'artifice