[Macro Excel] Fonction qui calcule une formule dans une cellule

Enthau · 21/07/2008, 14h29

Bonjour,

Je cherche à créer une fonction qui me permettrait de calculer un calcul saisie dans une cellule.
Par exemple, j'ai la cellule A1 qui contient 1+5*4-2+7 et sur la cellule B1 avoir =MaFonction(A1) qui me retournerai 26.
J'ai réussi à faire une fonction récursive mais ca ne marche que s'il y a des additions...

Merci

Gorfael · 21/07/2008, 16h18

Salut Enthau et le forum

Code :

Function MaFonction(Cel As Range) As Double
Application.Volatile
MaFonction = Evaluate("=" & Cel)
End Function

A+

Enthau · 21/07/2008, 16h31

Merci c'est exactement ce qu'il me fallait !!
Trop fort Gorfael !!!

21/07/2008, 14h29	#1 (permalink)
Enthau Membre régulier Date d'inscription: décembre 2006 Messages: 126	[Macro Excel] Fonction qui calcule une formule dans une cellule Bonjour, Je cherche à créer une fonction qui me permettrait de calculer un calcul saisie dans une cellule. Par exemple, j'ai la cellule A1 qui contient 1+5*4-2+7 et sur la cellule B1 avoir =MaFonction(A1) qui me retournerai 26. J'ai réussi à faire une fonction récursive mais ca ne marche que s'il y a des additions... Merci __________________ Quand tu regardes vers le Nord, t'as le "Sud au cul" ...

21/07/2008, 16h18	#2 (permalink)
Gorfael Membre Expert Date d'inscription: juillet 2007 Localisation: Loire Atlantique (44) Âge: 52 Messages: 1 017	Salut Enthau et le forum Code : Function MaFonction(Cel As Range) As Double Application.Volatile MaFonction = Evaluate("=" & Cel) End Function A+

21/07/2008, 16h31	#3 (permalink)
Enthau Membre régulier Date d'inscription: décembre 2006 Messages: 126	Merci c'est exactement ce qu'il me fallait !! Trop fort Gorfael !!! __________________ Quand tu regardes vers le Nord, t'as le "Sud au cul" ...

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Excel
[Macro Excel] Fonction qui calcule une formule dans une cellule

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email