écrire réciproque dans 2 cellules Fermé

Question

Bonjour, 
Sur Excel 2016 est-il possible d'écrire indifféremment dans une cellule d'une feuille (cellule F1 feuil1 par ex), que cela écrive également dans la cellule A1 de la feuil2 et lorsque l'on écrit dans la cellule A1 de la feuil2 que ça écrive dans la cellule F1 de la feuil1? 
Par avance je vous remercie

Configuration: Windows / Firefox 45.0

via55 · Answer

Bonjour

Possible avec macros 
Par exemple :
ALT+F11 pour ouvrir editeur VBA
Insertion puis Module
Dans la page du module copier coller l'instruction suivante pour déclarer la variable 
Public trans As Integer

Cette variable va servir dans les macros à éviter que celles-ci fonctionnent en boucle sans fin, l'instruction ne s’exécutant que si trans=0

Ensuite double-clic sur Feuil1 dans l'arborescence à gauche puis copier -coller dans la page la macro suivante :
 Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F1")) Is Nothing And trans = 0 Then trans = 1: Sheets("Feuil2").Range("A1") = Target.Value: trans = 0
End Sub

Enfin double-clic sur Feuil2 dans l'arborescence puis copier-coller la macro :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing And trans = 0 Then trans = 1: Sheets("Feuil1").Range("F1") = Target.Value: trans = 0
End Sub

Modifier les noms des cellules et des feuilles dans les macro si nécessaire

Cdlmnt
Via

via55 · Answer

Re

Essaie cette macro, à mettre dans le worksheet de chaque feuille 
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Index < Sheets.Count Then
If Not Intersect(Target, Range("K1:T80")) Is Nothing And trans = 0 Then trans = 1: Sheets(ActiveSheet.Index + 1).Cells(Target.Row, Target.Column - 10) = Target.Value: trans = 0
End If

If ActiveSheet.Index > 1 Then
If Not Intersect(Target, Range("A1:J80")) Is Nothing And trans = 0 Then trans = 1: Sheets(ActiveSheet.Index - 1).Cells(Target.Row, Target.Column + 10) = Target.Value: trans = 0
End If
End Sub
Plages à adapter si nécessaire

Avec toujours la déclaration  Public trans As Integer dans un module

Cdlmnt
Via

écrire réciproque dans 2 cellules

2 réponses

Discussions similaires