conversion formule en texte

Bonjour,

Dans un module:

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

Dans le tableur: =afficheFormule(A3)

http://cjoint.com/?fFsjCRv1Ut

Cordialement JB

Bonjour,

Je cherche à montrer une formule dans la cellule adjacente.

Cellule source :

=101+203+505

Cellule finale :

'=101+203+505

Le but étant de permettre une vérification rapide de mes calculs de m etré
lors des impressions.

Merci pour votre aide.

Gérôme

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

Cordialement,
--
AP

"Gérôme Forthomme" <gerome@forth.be> a écrit dans le message de news:
%23tqHekMhGHA.5096@TK2MSFTNGP02.phx.gbl...

Bonjour,

Je cherche à montrer une formule dans la cellule adjacente.

Cellule source :

1+203+505

Cellule finale :

'1+203+505

Le but étant de permettre une vérification rapide de mes calculs de metré
lors des impressions.

Merci pour votre aide.

Gérôme