Copier résultat d'une cellule si son résultat change

Bonjour à toutes et tous,

J'ai besoin de votre aide et de vos lumières.

Voilà ce que je souhaiterai faire en VBA :

A1=J3+J5

Or J3 et J5 peuvent changer et donc le resultat en A1 aussi.

Dans la cellule B1 j'aimerai avoir le résultat (et non la formule) de A1.

Lorsque le résultat de A1 change (donc J3 et/ou J5 changent) alors j'aimerai que le nouveau résultat soit en B2 et ainsi de suite à chaque fois que A1 change.

En gros, j'aimerai avoir l'historique des valeurs de A1 en B1, B2, B3,..... à chaque fois que A1 change.

ATTENTION: je ne rentre rien dans la cellule A1, seules les cellules J3 etJ5 changent manuellement. Toutes les données sont sur la même feuille de calcul.

J'espère avoir été clair.

Merci d'avance de votre aide. Je suis débutant en VBA.

A++

Sylvain.

Bonjour,

Places ce code dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range
  If Not Intersect(Target, Union(Me.Range("J3"), Me.Range("J5"))) Is Nothing Then
    Set cel = Me.Cells(Me.Rows.Count, "B").End(xlUp)
    If Not IsEmpty(cel.Value) Then Set cel = cel.Offset(1)
    cel.Formula = Me.Range("A1").Text
  End If
End Sub

Attention, J3 et J5 doivent être des valeurs, pas le résultat de formules (il faut toujours surveiller les antécédents, pas les formules).

Bonjour Wolf76, le forum,

Un essai....code à placer dans le module de la feuille concernée....

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim dl As Integer
  dl = Range("B" & Rows.Count).End(xlUp).Row + 1
   If Not Application.Intersect(Target, Range("J3,J5")) Is Nothing Then
    cancel = True
     Range("A1,B" & dl) = Application.Sum(Range("J3"), Range("J5"))
   End If
End Sub

[EDIT] Bonjour Patrice33740,

Cordialement,

Bonjour à tous les deux,

Merci de votre aide, vos 2 solution fonctionne parfaitement.

Néanmoins, j'ai une préférence pour la solution de Patrice33740.

Encore MERCI.

Je mets le sujet en résolu.

A++

Wolf76