Resoudre un calcule dans une seul case

Bonjour a tous, je cherche depuis deux jours comment résoudre un calcule dans une seul case si cela est possible bien sur. Merci pour votre aide

Bonsoir,

rien de bien transcendant mais ceci fonctionne :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D4")) Is Nothing Then
        Application.EnableEvents = False
        On Error Resume Next
        Range("D4") = Evaluate("=" & Range("D4"))
        If IsError(Range("D4")) Then Range("D4") = ""
        Application.EnableEvents = True
    End If
End Sub

le fichier :

@ bientôt

LouReeD

Bonjour à tous,

si c'est pour écrire le résultat dans la même cellule autant écrire =1+1+1
Tu liras 3 mais tu auras le détail dans la barre de formule.

Si c'est dans une autre cellule ça sera une fonction personnalisée.
Je t'ai mis les 2 dans le classeur
eric