Pour des liaisons réciproque !!!!

[Jeanaug]

Bonjour
J'ai un petit problème à vous poser.
Sur une même feuille j'ai deux tableaux, j'aimerai que l'un informe l'autre, et réciproquement. Exemple : si j'écris 5 en A1, 5 apparait en B12 et si j'écris 7 en B12, 7 remplace 5 en A1.
Est-ce possible, si oui comment puis-je procéder ?
Merci beaucoup d'avance pour la réponse 🙂 !

 

[pierrejean]

Re : Pour des liaisons réciproque !!!!

bonjour jeanaug

pour 2 cellules

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("B12") = Target
If Target.Address = "$B$12" Then Range("A1") = Target
End Sub

pour 2 tableaux il serait bon de savoir si les dimensions sont les mêmes

 

[pierrejean]

Re : Pour des liaisons réciproque !!!!

pour 2 tableaux

Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Range("rg1"), Target)
If Not isect Is Nothing Then
Range("rg1").Copy Destination:=Range("rg2")
End If
Set isect = Application.Intersect(Range("rg2"), Target)
If Not isect Is Nothing Then
Range("rg2").Copy Destination:=Range("rg1")
End If
End Sub

suppose d'avoir nommé les tableaux(de dimensions identiques) rg1 et rg2

 

[Jeanaug]

Re : Pour des liaisons réciproque !!!!

Un super grand merci pour votre réponse, mais je ne comprend pas ce langage et je ne sais pas m'en servir ! comment faire d'une manière classique avec le mode formule ? Merci d'avance pour la réponse !!!!
Bien à vous 🙂
Jeanaug

 

[Samantha]

Re : Pour des liaisons réciproque !!!!

Bonjour Jeanaug,

si j'écris 5 en A1, 5 apparait en B12!

jusque là ça va e, B12 =A1

et si j'écris 7 en B12, 7 remplace 5 en A1.

mais là :

d'une manière classique avec le mode formule

je crois que non car si tu saisis en B12 tu effaces ta formule.....

Sam

 

[pierrejean]

Re : Pour des liaisons réciproque !!!!

bonjour jeanaug
mes hommages à ma sorcière bien-aimée

aie , aie , aie

si Samantha n'a pas de solution .....

en attendant le verdict d'André et celui de Monique on va tenter d'expliquer l'usage du semi-remorque

aller dans Outils > macro > Visual basic Editor

dans la partie gauche cliquer sur la feuille concernée

sur la partie droite 2 listes deroulantes

sur celle de gauche choisir Worksheet
su celle de doite choisir Worksheet_Change(ByVal Target As Range)
copier / coller la macro ci-dessus

tester et si probleme revenir