Liaison dynamique entre deux feuilles
Résolu
ElvisRocks
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
-
-
Bonjour,
Voici mon problème. Je cherche à lier dynamique deux feuilles, à savoir quand "1 feuil 1" change, "A1 feuil 2" soit modifiée; et inversement.
J'ai trouvé quelques codes ça et là mais c'est toujours du cellule par cellule. Il y aurait un moyen que ce soit l'intégralité de la feuille qui soit reliée. C'est que j'ai beaucoup de cellules à relier !
Aussi, est-ce possible de relier dynamiquement, de la même façon, des classeurs différents ?
Si on ne peut que relier cellule par cellule, je veux bien un petit code avec explications, ça m'aiderait déjà à avancer :)
Merci beaucoup !!
elvis rock n roll
Voici mon problème. Je cherche à lier dynamique deux feuilles, à savoir quand "1 feuil 1" change, "A1 feuil 2" soit modifiée; et inversement.
J'ai trouvé quelques codes ça et là mais c'est toujours du cellule par cellule. Il y aurait un moyen que ce soit l'intégralité de la feuille qui soit reliée. C'est que j'ai beaucoup de cellules à relier !
Aussi, est-ce possible de relier dynamiquement, de la même façon, des classeurs différents ?
Si on ne peut que relier cellule par cellule, je veux bien un petit code avec explications, ça m'aiderait déjà à avancer :)
Merci beaucoup !!
elvis rock n roll
A voir également:
- Lier deux cellules de feuilles différentes excel
- Concatener deux cellules excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Liste déroulante excel - Guide
- Verrouiller cellules excel - Guide
2 réponses
Bonjour,
Faire Alt F11 pour accéder au code.
Sélectionner en haut à gauche le feuille1 et mettre ce code:
ensuite
Sélectionner en haut à gauche le feuille2 et mettre ce code:
Faire Alt F11 pour accéder au code.
Sélectionner en haut à gauche le feuille1 et mettre ce code:
Option Explicit
Dim mavariable, colonne, ligne
Private Sub Worksheet_Change(ByVal Target As Range)
mavariable = Target.Value
ligne = Target.Row
colonne = Target.Column
Sheets("Feuil2").Cells(ligne, colonne).Value = mavariable
End Sub
ensuite
Sélectionner en haut à gauche le feuille2 et mettre ce code:
Option Explicit
Dim mavariable, colonne, ligne
Private Sub Worksheet_Change(ByVal Target As Range)
mavariable = Target.Value
ligne = Target.Row
colonne = Target.Column
Sheets("Feuil1").Cells(ligne, colonne).Value = mavariable
End Sub
