Discussion :

[tibiscuit]

Bonjour,

Je souhaiterais pouvoir lier le contenu des cellules de 2 feuilles réciproquement entre elles, c'est à dire qu'une modification sur une feuille s'affiche également sur l'autre. J'ai testé quelques bouts de code mais soit je génère une boucle infinie, soit ca na marche tout simplement pas.
Une solution?

Cordialement

[jfontaine]

Bonjour,

Une solution est tester la feuille active

sur la premiere feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address(False, False) = "A1" Then
    If ActiveSheet.Name = Me.Name Then Sheets("Feuil2").Range("A1") = Target.Value
End If
 
End Sub

Sur la deuxieme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Address(False, False) = "A1" Then
    If ActiveSheet.Name = Me.Name Then Sheets("Feuil1").Range("A1") = Target.Value
End If
 
End Sub

[tibiscuit]

Merci de ta réponse rapide, cependant comment l'adapter pour que cela fonction sur toute les cellules de la feuille et pas seulement sur A1?

[jfontaine]

Comme cela

C'est encore plus court

Feuil 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 
If ActiveSheet.Name = Me.Name Then Sheets("Feuil2").Range(Target.Address) = Target.Value
 
End Sub

Feuil 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
 
If ActiveSheet.Name = Me.Name Then Sheets("Feuil1").Range(Target.Address) = Target.Value
 
End Sub

[tibiscuit]

Désolé, ça ne fonctionne pas

[jfontaine]

J'ai complété la proposition de mon précédent post

[tibiscuit]

Nickel, merci beaucoup.

Dernière chose, je risque d'avoir plusieurs feuilles à mettre côte en côte sur une sorte de feuille récapitulative et je voudrais que ce soit sur le même principe: une modification sur les premières feuilles se recopie automatiquement sur la feuille récap et une modification sur la feuille récap se recopie sur la feuille d'origine correspondante.

Est-ce possible?

[mercatog]

Ou une autre proposition en utilisant Workbook_SheetChange.
Code à mettre dans le module ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ShName As String
 
If InStr("Feuil1|Feuil2", Sh.Name) > 0 Then
    ShName = "Feuil1"
    If Sh.Name = "Feuil1" Then ShName = "Feuil2"
    Application.EnableEvents = False
    Sheets(ShName).Range(Target.Address).Value = Target.Value
    Application.EnableEvents = True
End If
End Sub

[jfontaine]

Je ne comprend pas bien le principe.
Une feuille recap qui est égal aux premières feuilles sans faire de somme ou une autre opération.
De plus si je modifie la recap comment savoir sur quelle feuille de destination aller copier la valeur

[tibiscuit]

Par exemple, les colonnes A à D de la feuille 1 liées aux colonnes A à D de la feuille récap et les colonnes A à D de la feuille 2 liées aux colonnes E à H de la feuille récap

[jfontaine]

Dans ce cas, il te faudra gérer les destinations suivant la source

Code de la feuille recap

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Select Case Target.Column
 
    Case 1 To 4
        If ActiveSheet.Name = Me.Name Then
            Sheets("Feuil2").Range(Target.Address).Value = Target.Value
        End If
    Case 5 To 8
        If ActiveSheet.Name = Me.Name Then
            Sheets("Feuil3").Cells(Target.Row, Target.Column - 4).Value = Target.Value
        End If
End Select
 
End Sub

Code de la feuille 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
 
    Case 1 To 4
        If ActiveSheet.Name = Me.Name Then
            Sheets("Recap").Range(Target.Address).Value = Target.Value
        End If
 
End Select
End Sub

Code de la feuille 3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
 
    Case 1 To 4
        If ActiveSheet.Name = Me.Name Then
            Sheets("Recap").Cells(Target.Row, Target.Column + 4) = Target.Value
        End If
 
End Select
End Sub

[tibiscuit]

Y a un probleme avec la feuille recap, une modification dans n'importe quelle colonne se répercute sur les 2 autres feuilles au lieu de ne se répercuter que sur la feuille correspondante

[jfontaine]

Vérifie ton code car pas de problème sur ma version

[tibiscuit]

Pourrais-tu joindre ton fichier d'essai stp, parce que je ne comprends pas pourquoi ca ne fonctionne pas chez moi

[jfontaine]

Voila

Exemple Feuille miroir.xls

[tibiscuit]

Ton classeur ne fonctionne pas non plus chez moi, il ne se passe rien qd j'entre des valeurs

[jfontaine]

Tu es sous quelle version d'excel (ici 2003)

[tibiscuit]

2010.
Tu penses que ça change quelque chose?

[jfontaine]

As tu activé les macros

[tibiscuit]

Oui