récupérer la formule d'une cellule

[zeltron]

Bonjour à tout le formule,

Je souhaiterais récupérer la formule d'une cellule et non son résultat; cela par formule.
Il y a quelques temps j'avais trouvé la solution avec la formule: "fORMULA..." mais je ne la retouve plus.

Pouvez vous m'aider?

Cordialement

Zeltron

 

[DoubleZero]

Re : récupérer la formule d'une cellule

Bonjour, zeltron, le Forum,

Récupérer une formule par une autre formule, je ne sais pas si c'est possible.

En attendant, le code ci-après peut-il dépanner ?

Option Explicit
Sub Quelle_formule()
MsgBox Selection.Address & " : " & Chr(10) & Selection.Formula
End Sub

A bientôt

 

[zeltron]

Re : récupérer la formule d'une cellule

Merci Doublezero,

Mais ce que je souhaite,c'est vraiment de l'obtenir par formule
Merci

Cordialement

Zeltron

 

[Modeste geedee]

Re : récupérer la formule d'une cellule

Bonsour®
dans ce cas fonction personnalisée
à inscrire dans un module standard

Function LireFormule(target)
LireFormule = Chr(39) & target.FormulaLocal
End Function

utilisation :
=LIREFORMULE(Adresse)

nb :
le classeur doit etre avec extension .xls ou .xlsm

 

[job75]

Re : récupérer la formule d'une cellule

Bonjour zeltron, DoubleZero,

Si l'on ne veut pas de VBA la seule solution est d'utiliser la fonction macro Excel 4.0 LIRE.CELLULE :

- sélectionnez B1

- définissez le nom Formule par =LIRE.CELLULE(6;Feuil1!A1)

- ensuite entrez où vous voulez la formule =Formule elle renverra la formule de la cellule à gauche.

Le fichier doit être enregistré en .xlsm ou .xls.

Edit : salut Modeste geedee

A+

 

[BOISGONTIER]

Re : récupérer la formule d'une cellule

Bonjour,

Affiche en commentaire les formules du champ sélectionné

Affiche en commentaire les formules du champ sélectionné
Sub AfficheFormuleCmt()
  On Error Resume Next
  For Each c In Selection
    If c.HasFormula = True Then
        If c.NoteText = "" Then
            c.AddComment c.FormulaLocal
            With c.Comment.Shape.OLEFormat.Object.Font
               .Name = "Tverdana"
               .Size = 8
               .FontStyle = "Normal"
               .ColorIndex = 3
             End With
             c.Comment.Visible = True
             c.Comment.Shape.Select
             Selection.AutoSize = True
          End If
    End If
  Next c
End Sub

Sub EffaceFormuleCmt()
    On Error Resume Next
    Selection.ClearComments
End Sub

JB

 

[zeltron]

Re : récupérer la formule d'une cellule

Merci pour toute vos réponses.
La solution de job75 répond bien à mon besoin
Merci encore à tous

Cordialement

Zeltron