Je cherche le moyen de lier 2 cellules entre elles de façon à A1 soit = à B1
et vice versa.
C'est à dire que la modification de l'une des 2 cellules entraine la mise à
jour de l'autre dans les 2 sens, afin qu'elles aient toujours le même contenu
(quelle que soit la cellule modifiée).
Je sais que cela est possible, mais je ne parviens plus à trouver le code
VBA qui le permette...
Private Sub Worksheet_Change(ByVal zz As Range) Application.EnableEvents = False If zz.Address = "$A$1" Then [B1] = [A1] If zz.Address = "$B$1" Then [A1] = [B1] Application.EnableEvents = True End Sub
PS : les références circulaires c'est pas une vraie bonne idée...
AV
C'est PARFAIT ! je peux poursuivre mes travaux.
Merci encore
Modifie le code comme suit :
Private Sub Worksheet_Change(ByVal zz As Range)
Application.EnableEvents = False
If zz.Address = "$A$1" Then [B1] = [A1]
If zz.Address = "$B$1" Then [A1] = [B1]
Application.EnableEvents = True
End Sub
PS : les références circulaires c'est pas une vraie bonne idée...
Private Sub Worksheet_Change(ByVal zz As Range) Application.EnableEvents = False If zz.Address = "$A$1" Then [B1] = [A1] If zz.Address = "$B$1" Then [A1] = [B1] Application.EnableEvents = True End Sub
PS : les références circulaires c'est pas une vraie bonne idée...
