Egalité réciproque

Comment créer une égalité réciproque entre deux cellules, de sorte que le changement de
l'une change la valeur de l'autre.

Voici une macro à mettre dans le module de feuille concernée pour conserver l'égalité entre les cellules A1 et B1 :

Private sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1]) Is Nothing Then [b1] = formule1
If Not Intersect(Target, [b1]) Is Nothing Then [a1] = formule2
end sub

Attention, cette macro ne fonctionne que si tu entres des valeurs manuellement dans les cellules concernées. Si ce qui s'affiche dépend du résultat d'une formule, cette macro sera inopérante.
Si en A1 tu entres une valeur manuellement alors qu'en B1 tu as une formule, tu peux te sortir de ton problème en ajoutant deux autres cellules : l'une (disons A10) recevra les données entrées manuellement, l'autre (disons B10) contient une formule de ton choix. En A1 et en B1 alors tu peux taper une formule du type =si($10"";$10;$10) de sorte que s'il n'y a pas eu saisie manuelle, c'est la valeur de la cellule B10 qui sera reportée dans les deux cellules A1 et B1, sinon ce sera la valeur de A10.


Ce mois-ci sur Excelabo

- Pas de nouvelle page.
- 2 pages modifiées.