Lié deux cellules entre elles

CBernardT

XLDnaute Barbatruc

• 5 Mai 2011

• #2

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

 

Vote positif 0 Vote négatif

M

MrBMCi

Guest

• 5 Mai 2011

• #3

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 5 Mai 2011

• #4

Re : Lié deux cellules entre elles

Bonsoir, Bernard 🙂,
La même chose

Code:

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

 

Vote positif 0 Vote négatif

M

MrBMCi

Guest

• 5 Mai 2011

• #5

Re : Lié deux cellules entre elles

C'est moi qui avait fait une erreur 😉

Merci a vous deux 🙂

 

Vote positif 0 Vote négatif