Pour des liaisons réciproque !!!!

pierrejean

XLDnaute Barbatruc

• 22 Septembre 2006

• #2

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Septembre 2006

• #3

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

 

Vote positif 0 Vote négatif

J

Jeanaug

Guest

• 23 Septembre 2006

• #4

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

 

Vote positif 0 Vote négatif

Samantha

XLDnaute Accro

• 23 Septembre 2006

• #5

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

Bonjour Jeanaug,

Jeanaug à dit:

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

Cliquez pour agrandir...

jusque là ça va e, B12 =A1

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

Cliquez pour agrandir...

mais là :

d'une manière classique avec le mode formule

Cliquez pour agrandir...

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

Sam

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Septembre 2006

• #6

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

 

Dernière édition: 24 Septembre 2006

Vote positif 0 Vote négatif