Lié deux cellules entre elles

[MrBMCi]

Bonjour,

Alors voila c'est tous bête , je voudrais que lorsqu'on tape dans la celulle A1 le même contenu apparaissent dans la cellules A2 et inversement

J'ai bien essayer de copier A1 en A2 mais si je met sa dans la macro de la feuille 1 sa copie en continu et excel beug

EDIT : Bien sur je ne peux pas rentrer =A2 dans la cellule A1 car il me faut une condition (une macro donc . )


Vous avez une idée ?
Merci

 

[CBernardT]

Re : Lié deux cellules entre elles

Bonjour à tous,

Avec une macro évènementielle placée dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Range("A2").Value = Range("A1").Value
ElseIf Not Application.Intersect(Target, Range("A2")) Is Nothing Then
Range("A1").Value = Range("A2").Value
End If
Application.EnableEvents = True
End Sub

 

[MrBMCi]

Re : Lié deux cellules entre elles

Re , Merci de ton aide

J'ai rentrer ta macro dans la feuille mais malheureusement elle ne semble pas fonctionner : Si je change A1 , A2 ne change pas et inversement .

Merci

 

[kjin]

Re : Lié deux cellules entre elles

Bonsoir, Bernard ,
La même chose

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Address
    Case "$A$1"
    [A2] = [A1]
    Case "$A$2"
    [A1] = [A2]
End Select
Application.EnableEvents = True
End Sub

A+
kjin

 

[MrBMCi]

Re : Lié deux cellules entre elles

C'est moi qui avait fait une erreur

Merci a vous deux