Comment afficher une formule de cellule avec les valeurs des cellules au lieu des références de cellules ?

Ce n'est pas ainsi qu'Excel fonctionne ; si vous avez une formule dans une cellule, c'est ce qui va apparaître dans la barre de formule.

MODIFIER

Vous pouvez utiliser VBA (depuis Outils > Macros > Éditeur Visual Basic), cependant, pour écrire du code qui mettra à jour le contenu des cellules C avec les valeurs de A + B, comme ceci:

 Private Sub HideFormula()
    Dim lastrow As Long, r1 As Long

    ' Obtenez la dernière ligne de la feuille de calcul
    lastrow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

    For r1 = 1 à lastrow

        ' Si A & B ne sont pas vides, faites en sorte que la formule de la cellule C soit égale à A + B.
        Si Sheet1.Range("$A$" & r1).Value <> "" Et _
            Sheet1.Range("$B$" & r1).Value <> "" Alors

            ' Dans l'exemple, C2 = A1 + B1, donc décalez C de un
            Feuille1.Range("$C$" & (r1 + 1)).Value = _
                "=" & Feuille1.Range("$A$" & r1).Value & "+" & _
                Feuille1.Range("$B$" & r1).Value

        Fin si

    Suivant

Fin Sub 

MODIFIER 2

Si vous voulez remplacer le contenu d'une cellule C par les valeurs de la formule, vous pouvez utiliser la valeur .Formula pour trouver sa formule, et partir de là:

 Private Sub ReplaceFormulaWithValues()
    Dim lastrow As Long, r1 As Long
    Dim temp As String, arTemp

    ' Obtenez la dernière ligne de la feuille de calcul
    lastrow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

    For r1 = 1 à lastrow

        ' Si A & B ne sont pas vides, faites en sorte que la formule de la cellule C soit égale à A + B.
        Si Sheet1.Range("$C$" & r1).Value <> "" Alors

            ' Obtenez la formule de la cellule C actuelle
            temp = Remplacer(Sheet1.Range("$C$" & r1).Formula, "=")

            ' Créez un tableau en séparant la formule sur le signe +
            arTemp = Divisé(temp, "+")

            Feuille1.Range("$C$" & r1).Value = _
                "=" & Feuille1.Range(arTemp(0)).Value & "+" & _
                Feuille1.Range(arTemp(1)).Value

        Fin si

    Suivant

Fin Sub