XL 2016 Relier deux feuilles en Excel

[DIKABOLI]

Bonjour, comment relier deux feuilles Excel de telle sorte que la saisie de l'autre feuille soit faite de façon automatique.
Très cordialement

 

[Robert]

Bonjour Dikaboli, bonjour le forum,

Avec la macro événementielle Change.
Dans le premier onglet (Feuil1 dans cet exemple) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OC As Worksheet
Set OC = Worksheets("Feuil2") 'à adapter
If OC.Range(Target.Address) = Target.Value Then Exit Sub
OC.Range(Target.Address).Value = Target.Value
End Sub

Dans le second onglet (Feuil2 dans cet exemple) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OC As Worksheet
Set OC = Worksheets("Feuil1") 'à adapter
If OC.Range(Target.Address) = Target.Value Then Exit Sub
OC.Range(Target.Address).Value = Target.Value
End Sub

Tu adapteras le nom des onglets...

 

[job75]

Bonjour DIKABOLI, Robert,

Placez cette macro dans ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim nom1$, nom2$, i%
nom1 = "Feuil1" 'à adapter
nom2 = "Feuil2" 'à adapter
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Sh.Name = nom1 Then
    i = Sheets(nom1).Index
    Sheets(nom2).Copy Before:=Sheets(nom1)
    Sheets(nom1).Delete
    Sheets(i).Name = nom1
ElseIf Sh.Name = nom2 Then
    i = Sheets(nom2).Index
    Sheets(nom1).Copy Before:=Sheets(nom2)
    Sheets(nom2).Delete
    Sheets(i).Name = nom2
End If
End Sub

Elle se déclenche quand on active une feuille.

A+