liaison entre plusieurs feuilles

Gysmo · 21 Février 2013

Bonjour, je cherche une façon de lier des cellules dans plusieurs feuilles....je m'explique exemple j'ai 4 feuilles je veux que toutes les cellules d'une plage a1:b12 soit inter-relié c'est-à-dire que si je change la valeur dans peu importe la feuille la valeur va ce copier dans les autres feuilles....

Merci

kjin · 21 Février 2013

Re : liaison entre plusieurs feuilles

Bonsoir,
Bé c'est pas possible à part VBA
Dans le module de ThisWorkbook

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Sh.Range("A1:B12")) Is Nothing Then
    For i = 1 To Sheets.Count
        Select Case Sheets(i).Index
        'Select Case Sheets(i).name
            Case 1 To 3
            'case "toto","titi","tutu"
            Application.EnableEvents = False
            Sheets(i).Range(Target.Address) = Target
            Application.EnableEvents = True
        End Select
    Next
End If
End Sub

A+
kjin

liaison entre plusieurs feuilles

Gysmo

XLDnaute Junior

kjin

XLDnaute Barbatruc

Discussions similaires