Egalité Reciproque entre deux cellules de deux fichiers diff

Bonjour,

Je suis confronté à un petit problème. j'aimerai créer une macro pour me permettre d'avoir l'égalité entre deux cellules de deux fichiers différents. exemple: dans le premier je selectionne une cellule reliée par cette macro à une cellule d'un autre fichier et toutes modifications de l'une entraine la modification de l'autre.

Quelqu'un peut il résoudre mon problème ?

Merci !!!!

Bonjour,

Un début... à adapter à votre problème.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ws As Worksheet, LeLien As String
  If Application.Intersect([LaCel], Target) Is Nothing Then Exit Sub
  LeLien = "P:\fichier2.xlsm"
  Application.ScreenUpdating = False
  Set Ws = Workbooks.Open(LeLien).Sheets(1)
  Application.EnableEvents = False
  Ws.Range(Target.Address) = Target.Value
  Application.EnableEvents = True
  Ws.Parent.Close Saved = 0
  Set Ws = Nothing
End Sub

Avec LaCel, la cellule a recopier dans l'autre fichier.

Cdt,

Darzou