Voir les formules

Comment afficher la formule à droite de la cellule contenant le résultat? Par exemple en A1 j'ai la formule" =2+2" qui affiche "4" en B1 je voudrais voir automatiquement "=2+2".

La fonction personnalisée suivante, à insérer dans un module du classeur
actif, dans perso.xls ou en xla donne la formule de la cellule
supérieure gauche d'une sélection.

 Public Function TEXTEFORMULE(Cellule As Range)
 TEXTEFORMULE = Cellule.Formula
 End Function

Avec une fonction perso (à mettre dans un module ordinaire)

Function laFORMULE(cell As Range)
 If cell.HasFormula = False Then
 laFORMULE = False
 Else: laFORMULE = cell.Formula
 End If
 End Function

Ex. dans ta feuille de calcul (pour A2 contenant une formule) =laFORMULE(A2) Autre possibilité : si tu veux écrire en A1 10+10 et que tu veuilles en A2 le résultat : Fonction perso :

Function EVALUE(cell As Range)
 EVALUE = Evaluate("=" & cell.Value)
 End Function

En A2 : =EVALUE(A1)

Auteurs : ,

Mots clefs associés à cette page : ,