Cellules miroirs

Bonjour,

J'aimerais créer une sorte de miroir entre deux cellules, cad que si j'écris dans la cellule A1 les données sont retranscrites dans la cellule B1 et inversement si je modifie les données de la cellule B1 elle se modifie dans la cellule A1.

Ca me permettrait de figer des cellules précises à un endroit défini afin de m'éviter de scroller en haut en bas sans cesse pour modifier les données que je souhaite.

Quelqu'un peut m'aider ?

Merci d'avance.

bonjour,

pas de solution sans macro (à ma connaissance)

voici une solution via macro événementielle pour la cas spécifique que tu as indiqué dans ta demande (mirroir A1,B1)

procédure à mettre dans le code la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = "$A$1" Then
        Application.EnableEvents = False
        Range("B1") = Target
        Application.EnableEvents = True
    ElseIf Target.Address = "$B$1" Then
        Application.EnableEvents = False
        Range("A1") = Target
        Application.EnableEvents = True
    End If
End Sub

Merci de votre aide.

Peux-être que je m'y prends mal, c'est la première fois que je tente une macro.

En faisant le copier coller, j'ai fait un premier test, j'ai l'impression que ça a fonctionné une fois.

Mais si je recommence maintenant rien ne se passe.

Bonjour,

difficile de comprendre ce qui ne fonctionne pas, si tu as adapté le code et que tu ne nous le rends pas visible. Pourrais-tu nous mettre ton fichier ?

Pas dans son intégralité malheureusement, car il est très confidentiel.

Mais disons que dans celui qui est en pièce jointe, je souhaite que C3 et C35 soit mes cellules miroirs.

Si je modifie C3, cela modifie C35 et inversement. Sur une nombre illimité de modification.

Et que chaque modification ait une incidence sur mon graphique.

bonjour,

voir pièce jointe corrigée

Je ne comprends pas en quoi ce tableau peut m'aider...

J'avoue que je découvre ces fonctionnalités d'excel et c'est très flou pour moi.

désolé.

J'ai remis le fichier correct (enfin j'espère !), voir message précédent

Ah oui je comprends mieux.

Comme pour mon essai, cela a fonctionné qu'une seule fois. Si je tente une nouvelle modification, la modification ne s'effectue pas.

re-Bonjour,

une instruction parasite était la cause du problème. j'ai mis une version corrigée.

Bonjour à tous,

Une autre proposition.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("C3,C35")) Is Nothing And Target.Count = 1 Then
        Application.EnableEvents = False
        Select Case Target.Address
            Case "$C$3": Me.Range("C35").Value = Target.Value
            Case "$C$35": Me.Range("C3").Value = Target.Value
            Case Else:
        End Select
        Application.EnableEvents = True
    End If
End Sub