formule en toutes lettres

5 réponses

ChristianM

03/07/2006 à 15:53

Bonjour,
Est-il possible dans une cellule d'afficher en clair la formule d'une autre
cellule : par exemple afficher en D12 la formule de la cellule C12 du type
"=E40*12".
Merci

5 réponses

CAP2

03/07/2006 à 16:07

Salut,

Tu fais Alt+F11, puis Insertion, module, et tu colles ça dans la fenêtre qui
arrive :

Function AfficherFormule(Cellule As Range)
AfficherFormule = Cellule.FormulaLocal
End Function

Exemple:
en D12, tu mets ¯ficherFormule(C12)

ce qui doit donner ä0*12.

Ca marche ?

CAP2

Ardus Petus

03/07/2006 à 16:09

Avec une UDF, c'est possible:

'------------------------------------------------------------------
Function LireFormule(rcell As Range) As String
If rcell.Count > 1 Then
LireFormule = CVErr(xlValue)
Exit Function
End If
If Not rcell.HasFormula Then
LireFormule = CVErr(xlErrNA)
Exit Function
End If
LireFormule = rcell.FormulaLocal
End Function
'----------------------------------------------------------------------------

en D12, tu entres:
=LireFormule(C12)

Cordialement,
--
AP

"ChristianM" a écrit dans le message de news:

Bonjour,
Est-il possible dans une cellule d'afficher en clair la formule d'une
autre cellule : par exemple afficher en D12 la formule de la cellule C12
du type "ä0*12".
Merci

03/07/2006 à 16:10

Bonjour,

Function AfficheFormule(c)
AfficheFormule = c.Formula
End Function

dans le tableur: �ficheFormule(A3)

JB

Bonjour,
Est-il possible dans une cellule d'afficher en clair la formule d'une aut re
cellule : par exemple afficher en D12 la formule de la cellule C12 du type
"�0*12".
Merci

arnaud

03/07/2006 à 16:18

Mettre un ' avant la formule
Arnaud

"ChristianM" a écrit dans le message de news:

Bonjour,
Est-il possible dans une cellule d'afficher en clair la formule d'une
autre

cellule : par exemple afficher en D12 la formule de la cellule C12 du type
"ä0*12".
Merci

ChristianM

03/07/2006 à 16:23

Merci CAP2, j'ai retenu ta formule
Merci aux autres contributeurs

"CAP2" a écrit dans le message de news:

Salut,

Tu fais Alt+F11, puis Insertion, module, et tu colles ça dans la fenêtre
qui arrive :

Function AfficherFormule(Cellule As Range)
AfficherFormule = Cellule.FormulaLocal
End Function

Exemple:
en D12, tu mets ¯ficherFormule(C12)

ce qui doit donner ä0*12.

Ca marche ?

CAP2

formule en toutes lettres

5 réponses

Veuillez sélectionner un problème