XL 2013 Résultat de formule sans la calculer

[benabou]

Bonsoir, après plusieurs heures d'essai et de recherche sur le net sans résultat, je met ma question entre vos mains en espérant avoir une réponse pertinente.
Bon voilà, je cherche à avoir le résultat d'une formule sans le calcul comme suit:
A1=12 ; A2= 23 ; A3=A1+A2=35 et A4=A3*20%
C'est à dire avoir en A4=35*20% sans exécuter le calcul, comme ça on montre sur l'imprimé la manière dont est calculée la valeur dans A4.
Merci.

 

[CISCO]

Re : Résultat de formule sans la calculer

Bonsoir

Si j'ai bien compris ta demande, il suffit de mettre un apostrophe devant la formule '=35*20%

@ plus

 

[job75]

Re : Résultat de formule sans la calculer

Bonsoir benabou, CISCO,

Pas bien clair mais voyez le fichier joint avec cette formule en C3 :

="A1="&A1&" ; A2="&A2&" ; A3=A1+A2="&A3&" ; A4=A3*20%="&A3&"*20%="&A4

Si l'on modifie les valeurs en A1 ou A2 le texte de l'explication s'adapte...

A+

 

[benabou]

Re : Résultat de formule sans la calculer

Merci de bien vouloir me répondre, je vous suis reconnaissant.
Seulement en imprimant sur papier, je dois avoir en cellule A4 (fichiers attachés) la valeur de A3 (35) et *20%. Ainsi le lecteur comprendra sur papier que le résultat 7 en A4 vient de la valeur calculée dans A3.
Merci.

 

[david84]

Re : Résultat de formule sans la calculer

Bonsoir,
tu disposes d'un bouton "Afficher les formules" dans l'onglet "Formule">bloc "Audit de formule" qui fait cela.
A+

 

[Victor21]

Re : Résultat de formule sans la calculer

Bonsoir benabou, lézamis.

C'aurait été vraiment insurmontable pour vous de joindre un exemple dès votre premier post, avec le résultat attendu ?
Ca vous aurait pris en tout état de cause moins de temps que les "plusieurs heures d'essai et de recherche sur le net sans résultat", et les (jusqu'alors 2:17) à attendre une solution.

Avez-vous essayé en A4 :

="="&A3&"*20%"

 

[CISCO]

Re : Résultat de formule sans la calculer

Bonjour à tous

@Victor21 :" Te fâche pas" .

@ benabou : Est-ce que tu as essayé la solution proposée par Job75 ? Ou maintenant, celle de Victor21 ? Si elles ne conviennent pas, en fouillant un peu à partir de leurs propositions, en les transformant, tu trouveras peut être ton bonheur. Si ce n'est toujours pas le cas, il ne te restera plus qu'à nous expliquer davantage ton besoin.

@ plus

 

[Modeste geedee]

Re : Résultat de formule sans la calculer

Bonsour®

A1=12 ; A2= 23 ; A3=A1+A2=35 et A4=A3*20%
C'est à dire avoir en A4=35*20% sans exécuter le calcul, comme ça on montre sur l'imprimé la manière dont est calculée la valeur dans A4.

une cellule ne peut afficher à la fois son contenu(formule) et son résultat (valeur)

Sélectionnez la cellule à évaluer. Vous ne pouvez évaluer qu’une seule cellule à la fois.
Dans le groupe Audit de formules de l’onglet Formules, cliquez sur Évaluation de formule.
Image Ruban Excel

Cliquez sur Évaluer pour examiner la valeur de la référence soulignée. Le résultat de l’évaluation s’affiche en italique.
Si la partie soulignée de la formule est une référence à une autre formule, cliquez sur Pas à pas détaillé pour afficher l’autre formule dans la zone Évaluation. Cliquez sur Pas à pas sortant pour revenir aux cellule et formule précédentes.

Remarque Le bouton Pas à pas détaillé n’est pas disponible pour une référence la deuxième fois que celle-ci apparaît dans la formule, ou si la formule fait référence à une cellule dans un classeur distinct.

Continuez jusqu’à ce que chaque partie de la formule ait été évaluée.
Pour revoir l’évaluation, cliquez sur Redémarrer.
Pour mettre fin à l’évaluation, cliquez sur Fermer.

je ne sais pas trouver hélas, de façon événementielle et autrement que par une série de SendKeys, comment automatiser cette méthode ...

 

[david84]

Re : Résultat de formule sans la calculer

Bonjour,
peut-être une piste via une fonction personnalisée utilisant des expressions rationnelles (j'avais produit cela il y a quelques temps : à voir si cela se rapproche de ce que tu recherches).
A+

 

[job75]

Re : Résultat de formule sans la calculer

Bonjour à tous,

Voyez les fichiers joints avec l'une de ces macros dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
[A4].Comment.Text "=" & [A3] & "*20%"
[A4].Comment.Shape.TextFrame.AutoSize = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
[A4].Hyperlinks(1).ScreenTip = "=" & [A3] & "*20%"
End Sub

A+

 

[benabou]

Re : Résultat de formule sans la calculer

Bonjour, je trouve que la solution proposée par Mr. Victor21 a presque aboutit. Ce qui manque c'est qu'elle ne donne pas les deux chiffres décimales lorsque le deuxième est égal à Zéro. Je m'explique: Si A1=12.30 A4 affiche =35,3*20% au lieu de =35,30*20%.
Celà d'une part, d'autre part je n'arrive pas à combiner deux formules en A4. En effet, si je met en A4="="&A3&"*RECHERCHEV(C1;D120;4;0)" pour trouver la valeur de C1 dans la plageD1 à D20 et que va etre prise en compte dans le calcul de A3 (20% en l'occurence), la cellule m'affiche =35**RECHERCHEV(C1;D120;4;0).
Merci pour vos efforts.

 

[benabou]

Re : Résultat de formule sans la calculer

Merci Mr. david84; mais où trouver FormuleNum excel 2013.

 

[Victor21]

Re : Résultat de formule sans la calculer

Re,

... je trouve que la solution proposée par Mr. Victor21 a presque aboutit. Ce qui manque c'est qu'elle ne donne pas les deux chiffres décimales lorsque le deuxième est égal à Zéro. Je m'explique: Si A1=12.30 A4 affiche =35,3*20% au lieu de =35,30*20%.

Peut-être :

="="&texte(A3;"0,00"&"*20%"

Nous n'avons toujours pas vu la couleur de votre fichier avec quelques exemples de départ et les résultats escomptés. Pourtant ça aiderait ...

 

[Modeste geedee]

Re : Résultat de formule sans la calculer

Bonsour®david84

petite correction :
Chaine = Chaine.FormulaLocal

perfectible pour formules contenant ":"

 

[job75]

Re : Résultat de formule sans la calculer

Re,

Dans le même esprit que David, en recherchant simplement les antécédents :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Dim c As Range, dp As Range, a As Range, i&, b As Range
Application.ScreenUpdating = False
[B:B].ClearContents 'RAZ
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
  If c.HasFormula Then c(1, 2) = "'" & c.FormulaLocal
Next
On Error Resume Next 's'il n'y a pas d'antécédents
Set dp = [A:A].DirectPrecedents 'antécédents
On Error GoTo 0
If dp Is Nothing Then Exit Sub
Set a = dp.EntireRow
For i = a.Rows.Count To 1 Step -1
  Set b = Intersect(a.Rows(i), dp)
  If Not b Is Nothing Then
    For Each b In b
      If IsNumeric(b) Then
        [B:B].Replace b.Address, b.Text, xlPart
        [B:B].Replace b.Address(1, 0), b.Text
        [B:B].Replace b.Address(0, 1), b.Text
        [B:B].Replace b.Address(0, 0), b.Text
      End If
    Next
  End If
Next
End Sub

Fichier joint.

A+