Discussion :

[Hippomeli]

Salut à tous.
Quelqu'un pourrait-il savoir comment est ce qu'il est possible (si déjà c'est possible) de dupliquer autematiquement le contenu d'une cellule dans une autre et vice versa. En fait je voudrais que pour deux cellules A et B par exemple, lors de la saisie dans la cellule A, que la cellule B soit automatiquement modifier. De même en faisant une saisie/modification dans la cellule B que la cellule A change automatiquement aussi. Apparament avec le signe "=" (égale) ça marche mais à un sens on ne peut pas modifier dans l'autre sens. Merci de votre aide d'avance.

[Gorfael]

Salut Hippomeli et le forum
Tu peux, mais uniquement par macro (à ma connaissance) :
Clic-Droit sur nom de l'onglet => Menu contectuel>>Visualiser le code
Tu colles le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err_Worksheet_Change
Dim Cel As Range
If Intersect(Range("A:B"), Target) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each Cel In Intersect(Range("A:B"), Target)
    If Cel.Columns = 1 Then
        Cel.Offset(0, 1) = Cel
    Else
        Cel.Offset(0, -1) = Cel
    End If
Next Cel
Sort_Worksheet_Change:
Application.ScreenUpdating = True
Application.EnableEvents = True
Exit Sub
Err_Worksheet_Change:
MsgBox Err.Description, vbOKOnly + vbCritical, "Erreur n°" & Err.Number
Resume Sort_Worksheet_Change
End Sub

Tout changement de A sera repporté en B et vice-versa
A+