Formule VBA pour lier 2 cellules Excel dans les deux sens
Hlick
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
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:
- Formule VBA pour lier 2 cellules Excel dans les deux sens
- Formule excel pour additionner plusieurs cellules - Guide
- Formule si et excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Concatener deux cellules excel - Guide
- Excel mise en forme conditionnelle formule - Guide
1 réponse
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