M
msieurrosé
Guest
Bonjour,
Voici mon petit problème, je souhaiterai écrire une macro qui me permette d'avoir 2 plages de cellules dans 2 feuilles distinctes qui soient parfaitement identique (miroir) => lorsque je change la valeur d'une cellule de cette plage dans la feuille 1 cela change la valeur de la même cellule dans la feuille 2 et vice versa
exemple :
feuille 1 : plage de cellule (A1:C5) en miroir avec la même plage de la feuille 2
si je tape "chien" dans la cellule A2 de la feuille 1 => la cellule A2 de la feuille 2 prend la même valeur
si je tape "chat" dans la cellule A2 de la feuille 2 => la cellule A2 de la feuille 1 prend la valeur "chat" et non plus "chien"
voici la macro qui me permet de créer un miroir entre deux cellules définies d'une même page :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
[B1] = Target
ElseIf Target.Address = "$B$1" Then
Application.EnableEvents = False
[A1] = Target
End If
Application.EnableEvents = True
End Sub
J'ai essayé de la modifier pour obtenir ce que je recherche mais sans succès, si vous avez une solution à me proposer ce serait très sympa
merci d'avance de votre aide
Jo
Voici mon petit problème, je souhaiterai écrire une macro qui me permette d'avoir 2 plages de cellules dans 2 feuilles distinctes qui soient parfaitement identique (miroir) => lorsque je change la valeur d'une cellule de cette plage dans la feuille 1 cela change la valeur de la même cellule dans la feuille 2 et vice versa
exemple :
feuille 1 : plage de cellule (A1:C5) en miroir avec la même plage de la feuille 2
si je tape "chien" dans la cellule A2 de la feuille 1 => la cellule A2 de la feuille 2 prend la même valeur
si je tape "chat" dans la cellule A2 de la feuille 2 => la cellule A2 de la feuille 1 prend la valeur "chat" et non plus "chien"
voici la macro qui me permet de créer un miroir entre deux cellules définies d'une même page :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
[B1] = Target
ElseIf Target.Address = "$B$1" Then
Application.EnableEvents = False
[A1] = Target
End If
Application.EnableEvents = True
End Sub
J'ai essayé de la modifier pour obtenir ce que je recherche mais sans succès, si vous avez une solution à me proposer ce serait très sympa
merci d'avance de votre aide
Jo