Lié deux cellules entre elles

MrBMCi · 5 Mai 2011

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 · 5 Mai 2011

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 · 5 Mai 2011

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 · 5 Mai 2011

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

MrBMCi · 5 Mai 2011

Re : Lié deux cellules entre elles

C'est moi qui avait fait une erreur

Merci a vous deux

Lié deux cellules entre elles

MrBMCi

XLDnaute Nouveau

CBernardT

XLDnaute Barbatruc

MrBMCi

XLDnaute Nouveau

kjin

XLDnaute Barbatruc

MrBMCi

XLDnaute Nouveau

Discussions similaires