Formule VBA pour lier 2 cellules Excel dans les deux sens

Hlick Messages postés 1 Statut Membre -  
via55 Messages postés 14730 Statut Membre -

Bonjour le forum,

Depuis 1 semaine je cherche sur plusieurs forum mais les formules proposés ne fonctionnent pas

Je cherche une formule VBA qui me permette de créer une liaison entre 2 cellules de 2 feuilles différentes, et ce dans les deux sens.

Ex :
Feuil1 A1 liée dans les deux sens avec Feuil2 A2
Si je modifie la Cellule A1 de la Feuille1 cela modifie automatiquement la cellule A2 de la FeuilleA2
Si je modifie la Cellule A2 de la Feuille2 cela modifie automatiquement la cellule A1 de la Feuille A1

Merci d'avance pour vos remarques/retours.
Bonne journée

Hlick

A voir également:

1 réponse

Réponse 1 / 1
via55 Messages postés 14730 Statut Membre 2 749
 

Bonjour

code à mettre dans le worksheet de la feuil 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing And Sheets("Feuil2").Range("A2") <> Target.Value Then Sheets("Feuil2").Range("A2") = Target.Value
End Sub

code à mettre dans le worksheet de la feuil 2

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing And Sheets("Feuil1").Range("A1") <> Target.Value Then Sheets("Feuil1").Range("A1") = Target.Value
End Sub

Cdlmnt

Via
0