[EXCEL] - Lien entre deux cellules ...

- Lien entre deux cellules ... [EXCEL] - Divers - Programmation

Marsh Posté le 23-02-2005 à 11:28:50    

Bonjour,  
 
Sous XL, je cherche à faire un lien entre deux cellules de telle manière que le changement de la valeur de l'une se reporte sur l'autre et vice-versa.
 
Exemple :  
Je veux lier les deux cellules A1 et A2. Si je mets dans A1 la valeur "4", je veux retrouver la valeur "4" dans A2. Ensuite, si je mets la valeur "5" dans A2, je veux retrouver la valeur "5" dans A1.
 
Merci pour votre Aide,  
 
Choda Boy

Reply

Marsh Posté le 23-02-2005 à 11:28:50   

Reply

Marsh Posté le 23-02-2005 à 13:46:27    

A priori, je dirais que ce n'est pas faisable (ou peut-être en vba).
 
Quel est l'intérêt de la chose ?
 
=> en vba, regarde du coté de Worksheet_Change Event mais c'est lourd (faut autoriser les macros)


Message édité par latruffe le 23-02-2005 à 13:51:32

---------------
« Lorsque le bûcheron pénétra dans la forêt avec sa hache, les arbres se dirent : ne nous inquiétons pas, le manche est des nôtres. » | Gérez votre collection de BD en ligne !
Reply

Marsh Posté le 23-02-2005 à 14:00:09    

un truc comme ça...
 

Code :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Select Case Target.AddressLocal
  3.     Case "$A$1"
  4.         Cells(2, 1).Value = Target.Value
  5.     Case "$A$2"
  6.         Cells(1, 1).Value = Target.Value
  7. End Select
  8. End Sub


---------------
« Lorsque le bûcheron pénétra dans la forêt avec sa hache, les arbres se dirent : ne nous inquiétons pas, le manche est des nôtres. » | Gérez votre collection de BD en ligne !
Reply

Marsh Posté le 23-02-2005 à 14:12:55    

latruffe a écrit :


Quel est l'intérêt de la chose ?


 
Je fais un classeur qui contient une feuille qui calcule entre autre l'amortissement d'un prêt. Et j'ai une autre feuille "principal" avec les même donnée pour le calcul du prêt ( taux, montant emprunté ...). Je veux tout simplement qu'un changement dans l'une des feuilles impacte l'autre.

Reply

Marsh Posté le 23-02-2005 à 14:13:18    

latruffe a écrit :

un truc comme ça...
 

Code :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Select Case Target.AddressLocal
  3.     Case "$A$1"
  4.         Cells(2, 1).Value = Target.Value
  5.     Case "$A$2"
  6.         Cells(1, 1).Value = Target.Value
  7. End Select
  8. End Sub



 
Parfait, je regarde cette piste

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed