liaison entre plusieurs feuilles

Gysmo

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

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

Discussions similaires

Réponses
4
Affichages
361

Statistiques des forums

Discussions
312 329
Messages
2 087 333
Membres
103 519
dernier inscrit
Thomas_grc11