XL 2016 Relier deux feuilles en Excel

DIKABOLI

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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+
 

Discussions similaires

Réponses
3
Affichages
396
Haut Bas