XL 2016 Relier deux feuilles en Excel

DIKABOLI · 29 Août 2019

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 · 29 Août 2019

Bonjour Dikaboli, bonjour le forum,

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

VB:

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) :

Code:

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 · 29 Août 2019

Bonjour DIKABOLI, Robert,

Placez cette macro dans ThisWorkbook :

VB:

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+

XL 2016 Relier deux feuilles en Excel

DIKABOLI

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

XL 2016 Relier deux feuilles en Excel

DIKABOLI

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency