Lier des plages de cellules de 2 feuilles différentes dans les 2 sens

[BUX07]

Bonjour à tous,
Sur la feuille 1, j'ai le planning de janvier et de février (5 noms et 31 jours)
Sur la feuille 2, j'ai le planning de février et mars
sur la feuille 3 ....
Dans chaque case je mets une lettre correspondant à la position de l'agent (T:travail R: repos S: stage ...)
Je voudrais que la modification d'une case d'un mois dans une des feuilles se répercute automatiquement sur ce même mois sur l'autre feuille et vice versa.

J'arrive à le faire (suite à un coup de main) pour une cellule avec la commande suivante :

Pour la feuille 1 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
[Feuil2!A2] = Target.Value
Application.EnableEvents = True
End If
End Sub

Pour la feuille 2 :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Application.EnableEvents = False
[Feuil1!A1] = Target.Value
Application.EnableEvents = True
End If
End Sub

Mais pour une plage de cellules ou plusieurs cellules sur plage je sèche littéralement.

Merci de votre aide

 

[phlaurent55]

Re : Lier des plages de cellules de 2 feuilles différentes dans les 2 sens

Bonjour BUX, et bienvenue sur le forum

avec ceci pour la feuille 1

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Sheets("Feuil2").Cells(Target.Row, Target.Column).Value = Target.Value
Application.EnableEvents = True
End Sub

et ceci pour la feuille 2

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Sheets("Feuil1").Cells(Target.Row, Target.Column).Value = Target.Value
Application.EnableEvents = True
End Sub

reste à adapter ceci:
Cells(Target.Row, Target.Column)
pour avoir la bonne colonne de destination

à+
Philippe

 

[BUX07]

Re : Lier des plages de cellules de 2 feuilles différentes dans les 2 sens

Merci phlaurent55 pour ta réponse. Cela fonctionne parfaitement.: