Excel : afficher le détail du calcul dans une autre cellule

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Excel : afficher le détail du calcul dans une autre cellule

hiwyx

Bonjour,

Je souhaiterais avoir une formule qui me permettrait d'afficher le détail d'un calcul fait dans une autre cellule. En cherchant sur internet j'ai trouvé ça :

Code :

Function DisplayFormula(cel As Range)
DisplayFormula = cel.Formula
End Function

Je précise que si je touche un peu à tout, niveau programmation, même basique, je ne connais rien.

La formule affichée au dessus fait une partie de ce que je souhaiterais. Le problème c'est que si j'ai des cellules et noms de cellules en référence dans mon calcul comme ça :

Code :

2*A2+A5/10*taux

Ca va m'afficher exactement ça, sauf que j'aimerais que ça m'affiche le détail pour pouvoir l'imprimer.

Mon souhait :

Code :

2*4.5+30/10*0.85

Quelqu'un pourrait me donner un coup de main ?

Merci !

Publicité

Marc L

Bonjour,

séparer chaque élément de la formule et pour ceux non numériques utiliser la fonction VBA Evaluate …

patrice33740

Avec la réponse, c'est facile.

Bonjour,

Tu peux utiliser la propriété DirectPrédédent.

Voici un exemple de code

Code :

Sub test()
Dim c As Range
Dim p As Range
Dim f As String
Dim n As Name
Set c = ActiveCell
f = c.Formula
'Remplacer les adresses absolues par des adresses relatives
f = Replace(c.Formula, "$", "" )
'Analyser chaque précédent de la cellule
For Each p In c.DirectPrecedents
'Remplacer l'adresse du précédent par sa valeur
f = Replace(f, p.Address(False, False), p.Value)
'vérifier si le précédent est un nom
On Error Resume Next
Set n = p.Name
On Error GoTo 0
If Not n Is Nothing Then
' .. si oui, remplacer le nom par la valeur du précédent
f = Replace(f, n.Name, p.Value)
End If
Next
MsgBox f
End Sub

Attention : ce code est simpliste. il suppose que la formule ne traite pas de chaine de caractère contenant "$"
ou contenant un des noms de plage nommée (par exemple "taux" ).

---------------
Cordialement, Patrice

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Excel : afficher le détail du calcul dans une autre cellule

Sujets relatifs
Afficher le compteur Google Analytics sur un site	notes jouées seulement si elles sont afficher #error N° 1.
Bug VBA : conversion .txt en .xlsx - Excel redémarre	afficher la fenêtre dans une applet
exportation de graphique d'excel à power point : ne fonctionne qu'une	Comment écrire une donnée dans une cellule passée en argument ?
Calculer taille image et afficher [RESOLU]	VBA EXCEL impossible de modifier le contenu d'une cellule
VBA excel Consolidation de données
Plus de sujets relatifs à : Excel : afficher le détail du calcul dans une autre cellule

Page générée en 0.037 secondes