convertir formule en texte [Résolu]

[Elcocco]

Bonjour à tous,

J'espère être au bon endroit.
J'ai une petite question j'ai dans une cellule Excel un formule et j'aimerais convertir cette formule en texte afin de garder une trace de cette formule et pouvoir l'afficher en entière comme étant du texte.
J'ai essayé de rajouter " ' " mais ensuite j'ai besoin de me resservir de cette formule, avec une macro.

Code :

Range("ANALYSE_POLES").Formula = Range("FORMULAS_POLES").Value

Est ce que vous avez une piste ?
Merci

[BlueMonkey]

Bonjour,

Pour l'affichage de la formule au format texte :

Code :

Range("ANALYSE_POLES").Value = "'" & Range("ANALYSE_POLES").Formula

Pour la conversion de la formule (au format texte) en formule active :

Code :

Range("ANALYSE_POLES").Formula = Range("ANALYSE_POLES").Formula

[jfontaine]

Bonjour,

Dans la même idée que BlueMonkey, mais sans l'apostrophe.

Code :

1
2
3
 
Range("ANALYSE_POLES").NumberFormatLocal = "@"
Range("ANALYSE_POLES").Value = Range("ANALYSE_POLES").FormulaLocal

[Elcocco]

Bonjour,

malheureusement je viens d'essayer vos codes mais j'ai un message d'erreur Type mismatch.

Pourtant sur un nouvelle Excel dela marche sans soucis.

[BlueMonkey]

Bonsoir,

Pour reproduire le problème peux-tu poster la forumle se trouvant en Range("ANALYSE_POLES") stp.

J'ai un message d'erreur Type mismatch.

Sur cette ligne ?

Code :

Range("ANALYSE_POLES").Value = "'" & Range("ANALYSE_POLES").Formula

ou bien celle-là ?

Code :

Range("ANALYSE_POLES").Formula = Range("ANALYSE_POLES").Formula

ou bien encore sur l'exemple de Jfontaine ?

[Elcocco]

L'erreur venait lorsque j'ai écris cette formule

Code :

Range("FORMULAS_POLES").Value = "'" & Range("ANALYSE_POLES").Formula

mais aussi celle là

Code :

Range("ANALYSE_POLES").Value = "'" & Range("ANALYSE_POLES").Formula

et celle de Jfontaine.

[BlueMonkey]

Ok.

Et quel est le texte (ou la formule) qui se trouve sous Excel (pas l'editeur de code VBA) dans la plage désignée par le nom ANALYSE_POLES ?

[jfontaine]

Je percute seulement maintenant que tu utilises une plage nommée.

Essais de faire la manipulation pour chaque cellules de la plage

Code :

1
2
3
4
Dim rg As Range
For Each rg In Range("FORMULAS_POLES")
    rg.Value = "'" & rg.Formula
Next rg

[Elcocco]

La formule est un peu compliquée car c'est une somme de somme si.

Je vais tester la dernière méthode et je vous tiendrais au courant.

encore Merci pour vos réponses

merci pour tous je viens d'essayer la nouvelle version et tout est ok.

Voici ma version finale

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub copy_formules()
 
Range("TEXTE") = FTEXT(Range("FORMULE"))
 
End Sub
 
Function FTEXT(f As Range)
    Dim rg As Range
For Each rg In f
    If rg.HasFormula Then
        FTEXT = "'" & rg.Formula
    Else: FTEXT = rg
    End If
    Next rg
End Function