Résultat dans la même cellule que la valeur

Bonjour,

Je souhaiterais savoir si cela est possible d'avoir le résultat d'une formule dans la même cellule que la valeur indiqué ?

Exemple :

Je souhaite que lorsque en A1 je note une valeur, que dans celle même cellule la valeur noté soit automatiquement multiplié par 2.

Je note la valeur 3 en A1, la valeur 6 s'affiche à la place

Je note la valeur 6 en A1, la valeur 12 s'affiche à la place

Etc.

Par avance merci de votre aide

Bonjour toutes et tous

@ tester dans le code de ta feuille au changement de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
' si erreur on passe au suivant 
On Error Resume Next
If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
        Application.EnableEvents = False
        Target = Target * 2
        Application.EnableEvents = True
    End If
End Sub

' * 2 ' on peut modifier

'activer (true) ou pas (false) les événements détectés

'par Excel worksheet_change etc.

crdlt,

André

Andre13 a écrit :

Bonjour toutes et tous

@ tester dans le code de ta feuille au changement de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
' si erreur on passe au suivant 
On Error Resume Next
If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
        Application.EnableEvents = False
        Target = Target * 2
        Application.EnableEvents = True
    End If
End Sub

' * 2 ' on peut modifier

'activer (true) ou pas (false) les événements détectés

'par Excel worksheet_change etc.

crdlt,

André

Merci Beaucoup André !