Sujet Précédent Sujet Suivant

Formule VBA pour lier 2 cellules Excel dans les deux sens

Fermé
Hlick Messages postés 1 Date d'inscription jeudi 7 septembre 2023 Statut Membre Dernière intervention 7 septembre 2023 - Modifié le 7 sept. 2023 à 09:50
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 - 10 sept. 2023 à 12:06

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 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
Modifié le 10 sept. 2023 à 12:07

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

Discussions similaires

Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses