XL 2010 Cellule identifier en cas de changement

[hemardjean]

Bonjour le forum
Je me tourne vers vous car j'ai besoin de nouveau de vos talents.
Dans le cadre de mon travail nous travaillons sur un réseau partagé, et certains dossiers et principalement des feuilles Excels sont exploités conjointement.

Mon souci est que lorsque l'on change une donnée dans ces feuilles (quantité de produits en stock par exemple) nous ne savons plus la quantité qu'il y avait précédemment ou s'il y avait eu des changements.

Existe-t-il une formule ou un mini programme en visuel Basic pouvant nous indiquer dans une cellule adjacente, où bien la quantité avant, ou bien le changement sous forme d'une cellule en couleurs ou autres.

Je vous joins un petit dossier peut-être plus parlant.

Bien cordialement à tous.

 

[mapomme]

Bonjour @hemardjean,

Une piste dans le fichier joint.

 

[youky(BJ)]

Bonjour,
A voir si cela conviens (tout le code de l'onglet)
Bruno

Public ValPrec
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  If Intersect(Target, Range("d4:d65000")) Is Nothing Then Exit Sub
  Cells(Target.Row, 6) = ValPrec
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Intersect(Target, Range("d4:d65000")) Is Nothing Then Exit Sub
 ValPrec = "Avant " & Target.Value
End Sub

 

[hemardjean]

bonsoir mapomme et youky
merci de vos réponses cela me convient parfaitement.
hemardjean