Valeur à décaler automatiquement vers le bas

[klorane]

Bonsoir à tous,

voilà j'ai dans une cellule J1 une valeur qui est calculée par une macro et qui change régulièrement.

Je souhaiterais que cette nouvelle valeur calculée soit copiée automatiquement en colonne M

exemple

la macro me calcul en J1 : 11
11 est copié en M1

la macro me calcul en J1 : 25
25 est copié en M2 (car M1 est pris)

la macro me calcul en J1 : 250
250 est copié en M3
etc...

Que doit-on ajouter dans la macro pour que chaque nouvelle valeur calculée soit automatiquement copiée dans la cellule correspondante en colonne M?

Merci
Laurent

 

[bqtr]

Re : Valeur à décaler automatiquement vers le bas

Bonsoir klorane,

Essaye avec ceci :

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("J1")) Is Nothing Then
   Range("M65536").End(xlUp).Offset(1, 0).Value = Target.Value
End If

End Sub

Si la valeur de la cellule J1 est modifée par une macro cela devrait fonctionner.
Code à placer dans le module de la feuille

A+

P.O

 

[klorane]

Re : Valeur à décaler automatiquement vers le bas

Merci à toi!

ça marche super.

Bonne soirée

Laurent