Si vous souhaitez établir un lien dynamique entre des cellules ou des plages de cellules, entre des feuilles de travail ou même des classeurs, pour la saisie de données dans les deux sens, VBA est la seule solution.
Vous devez utiliser le code VBA suivant dans les deux feuilles :
Comment cela fonctionne :
- Soit vous appuyez sur A lt+F11 ou clic droit sur la feuille T Ab.
- Cliquez sur Afficher le code dans le menu contextuel.
- Copier et Coller les deux dans l'éditeur VB pour les respecter les feuilles.
- Enregistrez le classeur sous M acro activé.
Dans la feuille 1 :
Private Sub Worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("A4")) Is Nothing Then
If Target = Range("A4") Then
Sheets("Sheet2").Range("B7").Value = Target.Value
End If
End If
End Sub
Dans la feuille 2 :
Private Sub Worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("B7")) Is Nothing Then
If Target = Range("B7") Then
If Sheets("Sheet1").Range("A4").Value <> Target.Value Then
Sheets("Sheet1").Range("A4").Value = Target.Value
End If
End If
End If
End Sub
NB :
- Le code de la feuille 2 mettra à jour la feuille 1 si les valeurs des deux cellules ne sont pas similaires.
- Si vous n'en avez pas besoin, il suffit de supprimer la ligne de l'instruction If.