Afficher le détail du calcul d'une formule

Le
StephD
Bonjour à tous,

Je cherche (fonction VBA ou pas) pour une formule d'une cellule à
afficher dans une autre cellule le détail du calcul (la valeur à la
place des références).

Par exemple,
en A1 : 15
en B1 : 20
en C1 : =A1+B1
Comment puis-je, svp, obtenir en D1, le détail c'est-à-dire "15+20" en
fonction de la formule en C1, plutôt que "=A1+B1" ?

Merci d'avance
StefD
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #22777561
Bonjour,

En d1
¡&"+"&B1
ou complet
¡&"+"&B1&"="&A1+B1

--
Salutations
JJ


"StephD"
Bonjour à tous,

Je cherche (fonction VBA ou pas) pour une formule d'une cellule à
afficher dans une autre cellule le détail du calcul (la valeur à la
place des références).

Par exemple,
en A1 : 15
en B1 : 20
en C1 : ¡+B1
Comment puis-je, svp, obtenir en D1, le détail c'est-à-dire "15+20" en
fonction de la formule en C1, plutôt que "¡+B1" ?

Merci d'avance
StefD
StephD
Le #22777551
Merci JJ.

J'ai créé du coup une fonction à améliorer sans doute (elle ne gè re
pas les plages mais ce n'est pas important dans mon cas).
La voici si cela peut servir.

Bonne journée
StefD

Function DetailCalcul(C As Range)
Dim i%, x$, MaRef$
Application.Volatile
If C.HasFormula = True Then
For i = 1 To Len(C.FormulaLocal)
If IsNumeric(Application.Match(Mid(C.FormulaLocal, i, 1),
Array("(", ")", "+", "-", "*", "/", "=", "^", "%"), 0)) Then
If MaRef <> "" Then
On Error Resume Next
x = x & IIf(Range(MaRef).Value = 0, 0,
Range(MaRef).Value) & Mid(C.FormulaLocal, i, 1)
If Err Then x = x & MaRef & Mid(C.FormulaLocal, i,
1): Err = 0: On Error GoTo 0
MaRef = ""
Else
x = x & Mid(C.FormulaLocal, i, 1)
End If
Else
MaRef = MaRef & Mid(C.FormulaLocal, i, 1)
End If
Next
If MaRef <> "" Then
On Error Resume Next
x = x & IIf(Range(MaRef).Value = 0, 0, Range(MaRef).Value)
& Mid(C.FormulaLocal, i, 1)
If Err Then x = x & MaRef & Mid(C.FormulaLocal, i, 1): Err
= 0: On Error GoTo 0
MaRef = ""
End If
Else
x = C.Value
End If
DetailCalcul = x
End Function
Maude Este
Le #22777621
Bonsour®

stefdestroy a écrit
Je cherche (fonction VBA ou pas) pour une formule d'une cellule à
afficher dans une autre cellule le détail du calcul (la valeur à la
place des références).



dans le cas de =Somme(A1:B25)
que faudrait-il afficher en D1
????

Sub Details()
If Selection.Count = 1 Then
Application.Dialogs(xlDialogEvaluateFormula).Show
Else
MsgBox "Ne selectionner qu'une seule cellule!", vbInformation
End If
End Sub
Maude Este
Le #22777741
Bonsour®

stefdestroy a écrit
J'ai créé du coup une fonction à améliorer sans doute (elle ne gère
pas les plages mais ce n'est pas important dans mon cas).
La voici si cela peut servir.



;o)))
astucieux,
limité,
mais intéressant !!!
"le compte est bon " ;o)))
michdenis
Le #22777771
Bonjour,

| astucieux,limité,

La fonction ne résout pas ceci :
=MOD(A2;5)

Mais elle répond peut-être néanmoins au besoin du demandeur !

MichD
--------------------------------------------
Publicité
Poster une réponse
Anonyme