1 votes

Est-il possible d'établir une connexion bidirectionnelle entre deux cellules se trouvant dans deux feuilles différentes ?

Je veux connecter deux des cellules entre 2 feuilles Excel, ainsi que mettre à jour les deux, si des données ont été saisies dans l'une des deux cellules.

  • Cellule A4 de la feuille 1.
  • Cellule B7 de la feuille 2.

Supposons que 100 soit entré dans la cellule A4 de la feuille 1, alors B7 de la feuille 2 doit être mis à jour avec 100.

Et si 80 se trouve dans la cellule B7 de la feuille 2, alors la cellule A4 de la feuille 1 doit aussi être 80.

J'utilise les deux versions d'Excel 2013 et 2016.

2voto

Rajesh Sinha Points 8611

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.

SistemesEz.com

SystemesEZ est une communauté de sysadmins où vous pouvez résoudre vos problèmes et vos doutes. Vous pouvez consulter les questions des autres sysadmins, poser vos propres questions ou résoudre celles des autres.

Powered by:

X