Calcul automatique en reprenant le texte d'une cellule

Question

J'aimerai avoir de l'aide concernant un chose que je n'arrive pas à faire sur Excel, c'est peut-être tout simple, ou alors ce n'est pas possible, je ne sais pas. Voici mon problème : J'ai un tableur pour calculer des surfaces dans une maison. Une colonne, à gauche, sous format texte, des "formule" tapées à la main, pour désigner un calcul à réaliser dont le total sera a afficher dans la colonne de droite. Ce que je souhaiterai, c'est qu'une fois que j'ai tapé la formule dans la colonne de gauche, il suffise simplement d'une formule dans la colonne de droite qui reprenne le texte de la cellule de gauche pour en afficher le résultat, mais en conservant la cellule sous format texte du calcul à gauche. Je vous joint mon fichier exemple. Cela parait futile pour calculer quelques formule, plus rapide de retaper à la main en rajoutant simplement un "=" au début. Mais dans mon travail, il s'agit parfois de plusieurs dizaines de pages de ce genre de calcul pour chiffrer un projet conséquent, donc automatiser la frappe des formules me serait bien pratique... J'espère que cela sera réalisable, je vous remercie par avance pour votre aide...

JExceL2fr · Accepted Answer

Re,

Selon comme le texte est écrit, il y a une modification du code de la fonction à faire, mais l'idée était là

Function Evalue(r As Range) As Variant
  Dim sForm As String
  ' Transformer un minimum la formule
  sForm = r.Value
  ' Supprimer les espaces
  sForm = Replace(sForm, " ", "")
  ' Remplacer le X par une *
  sForm = Replace(sForm, "X", "*")
  ' Remplacer la virgule par un point
  sForm = Replace(sForm, ",", ".")
  ' placer le = devant
  sForm = "=" & Replace(sForm, "=", "")
  ' La calculer
  Evalue = Application.Evaluate(sForm)
End Function

Voici le fichier avec la fonction personnalisée

11calcul-resultat-formule-dans-cellule.xlsm (16.56 Ko)

A+

JExceL2fr · Answer

Une petite recherche aurait suffit Obtenir le résultat d'une formule présente sous format texte A+...