XL 2010 Cellule identifier en cas de changement

hemardjean · 10 Décembre 2019

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 · 10 Décembre 2019

Bonjour @hemardjean,

Une piste dans le fichier joint.

youky(BJ) · 10 Décembre 2019

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

VB:

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 · 10 Décembre 2019

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

XL 2010 Cellule identifier en cas de changement

hemardjean

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

hemardjean

XLDnaute Occasionnel

Discussions similaires