OVH Cloud OVH Cloud

double égalité

8 réponses
Avatar
CyrilDébutAccess
Bonjour,
sans doute cette question a déjà été posée de nombreuses fois, mais je n'ai
pas réussi à la retrouver...

Je voudrais savoir s'il est possible de créer une égalité réciproque entre
deux cellules.

C'est à dire, indiquer à la première qu'elle est égale à la seconde, et
indiquer à la seconde qu'elle est égale à la première, de sorte que le
changement de l'une comme de l'autre va changer la valeur de la seconde.

J'espère que quelqu'un pourra me sortir de cette situation angoissante!
Merci d'avance

8 réponses

Avatar
Vincnet.
Bonjour Cyril,
Tu peux toujours le faire (en ayant prix soin dans Outils/Options/Calcul de
cocher la case itération. Mais dès qu'une de tes cellules aura été
renseignée, il n'y aura plus moyen de faire marche arrière... on ne peut pas
avoir une formule ET une valeur dans une même cellule ! (c'est évident,
certes mais bon...à=)

--
A+

V.



Bonjour,
sans doute cette question a déjà été posée de nombreuses fois, mais je n'ai
pas réussi à la retrouver...

Je voudrais savoir s'il est possible de créer une égalité réciproque entre
deux cellules.

C'est à dire, indiquer à la première qu'elle est égale à la seconde, et
indiquer à la seconde qu'elle est égale à la première, de sorte que le
changement de l'une comme de l'autre va changer la valeur de la seconde.

J'espère que quelqu'un pourra me sortir de cette situation angoissante!
Merci d'avance




Avatar
ru-th
Salut

à mettre dans le module de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target
End Sub
a+
rural thierry
"CyrilDébutAccess" a écrit dans
le message de news:
Bonjour,
sans doute cette question a déjà été posée de nombreuses fois, mais je
n'ai

pas réussi à la retrouver...

Je voudrais savoir s'il est possible de créer une égalité réciproque entre
deux cellules.

C'est à dire, indiquer à la première qu'elle est égale à la seconde, et
indiquer à la seconde qu'elle est égale à la première, de sorte que le
changement de l'une comme de l'autre va changer la valeur de la seconde.

J'espère que quelqu'un pourra me sortir de cette situation angoissante!
Merci d'avance




Avatar
Misange
Bonjour

Pour faire dépendre une cellule d'une autre tu dois écrire dans cette
cellule une formule
Donc si tu veux que A1 affiche le contenu de B1, en A1 tu écris ±
Si tu modifies B1, A1 se modifie aussi. Jusque là ça va.
Maintenant si je comprends bien, tu voudrais écrire aussi B1¡ dans la
cellule B1 ?


Le problème, maintes fois évoqué ici c'est qu'effectivement tu ne peux
pas demander à excel de contenir SOIT une formule SOIT un résultat et de
se souvenir de la formule si on la remplace par un résultat.

Une solution : ne permettre la modification que dans une seule des deux
cellules et faire dépendre l'autre de celle-ci.
Si tu poses la question, j'imagine que c'est que en A1 ton résultat peut
par exemple être entré manuellement alors qu'en B1 il va dépendre d'un
calcul fait ailleurs ? Si c'est ça, pour t'en sortir tu vas devoir faire
appel à deux autres cellules : l'une (disons A10) dans laquelle
éventuellement sera rentrée manuellement une valeur, l'autre (disons
B10) dans laquelle tu mets une formule de ton choix.
En A1 et en B1 alors tu peux taper une formule du type
=si($A$10<>"";$a$10;$b$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.

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 02/05/2005 11:52, :
Bonjour,
sans doute cette question a déjà été posée de nombreuses fois, mais je n'ai
pas réussi à la retrouver...

Je voudrais savoir s'il est possible de créer une égalité réciproque entre
deux cellules.

C'est à dire, indiquer à la première qu'elle est égale à la seconde, et
indiquer à la seconde qu'elle est égale à la première, de sorte que le
changement de l'une comme de l'autre va changer la valeur de la seconde.

J'espère que quelqu'un pourra me sortir de cette situation angoissante!
Merci d'avance




Avatar
Misange
effectivement vu comme ça ! mais si t'avais des formules dans A1 et B1,
t'oublies ! elles seront effacées

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 02/05/2005 13:35, :
Salut

à mettre dans le module de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target
End Sub
a+
rural thierry
"CyrilDébutAccess" a écrit dans
le message de news:

Bonjour,
sans doute cette question a déjà été posée de nombreuses fois, mais je


n'ai

pas réussi à la retrouver...

Je voudrais savoir s'il est possible de créer une égalité réciproque entre
deux cellules.

C'est à dire, indiquer à la première qu'elle est égale à la seconde, et
indiquer à la seconde qu'elle est égale à la première, de sorte que le
changement de l'une comme de l'autre va changer la valeur de la seconde.

J'espère que quelqu'un pourra me sortir de cette situation angoissante!
Merci d'avance









Avatar
ru-th
pour faire éviter une double application, la procédure se re déclenchant à
la modification par macro de l'autre cellule
préferer
Private Sub Worksheet_Change(ByVal Target As Range)
application.EnableEventsúlse
If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target
application.EnableEventsúlse
End Sub
a+
"ru-th" a écrit dans le message de news:

Salut

à mettre dans le module de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target
End Sub
a+
rural thierry
"CyrilDébutAccess" a écrit
dans

le message de news:
Bonjour,
sans doute cette question a déjà été posée de nombreuses fois, mais je
n'ai

pas réussi à la retrouver...

Je voudrais savoir s'il est possible de créer une égalité réciproque
entre


deux cellules.

C'est à dire, indiquer à la première qu'elle est égale à la seconde, et
indiquer à la seconde qu'elle est égale à la première, de sorte que le
changement de l'une comme de l'autre va changer la valeur de la seconde.

J'espère que quelqu'un pourra me sortir de cette situation angoissante!
Merci d'avance








Avatar
ru-th
Salut
tu peux prévoir
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

a+
rural thierry
"Misange" a écrit dans le message de news:

effectivement vu comme ça ! mais si t'avais des formules dans A1 et B1,
t'oublies ! elles seront effacées

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 02/05/2005 13:35, :
Salut

à mettre dans le module de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target
End Sub
a+
rural thierry
"CyrilDébutAccess" a écrit
dans


le message de news:




Bonjour,
sans doute cette question a déjà été posée de nombreuses fois, mais je


n'ai

pas réussi à la retrouver...

Je voudrais savoir s'il est possible de créer une égalité réciproque
entre



deux cellules.

C'est à dire, indiquer à la première qu'elle est égale à la seconde, et
indiquer à la seconde qu'elle est égale à la première, de sorte que le
changement de l'une comme de l'autre va changer la valeur de la seconde.

J'espère que quelqu'un pourra me sortir de cette situation angoissante!
Merci d'avance











Avatar
CyrilDébutAccess
Merci, tous,

je vais bien étudier vos propositions!!
C cool
Avatar
CyrilDébutAccess
C'estv très cool ton truc, ca a tout de suite marché!!!

Mais j'ai une toute petite question: quand les deux cellules en question
n'appartiennent pas au même classeur Excell, metton la cellule a1 ans le
classeur poire et b1 pour le classeur cerise.

Comment s'écrit alors la formule [a1,b1]???


Salut

à mettre dans le module de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1,b1]) Is Nothing Then [a1,b1] = Target
End Sub
a+
rural thierry
"CyrilDébutAccess" a écrit dans
le message de news:
Bonjour,
sans doute cette question a déjà été posée de nombreuses fois, mais je
n'ai

pas réussi à la retrouver...

Je voudrais savoir s'il est possible de créer une égalité réciproque entre
deux cellules.

C'est à dire, indiquer à la première qu'elle est égale à la seconde, et
indiquer à la seconde qu'elle est égale à la première, de sorte que le
changement de l'une comme de l'autre va changer la valeur de la seconde.

J'espère que quelqu'un pourra me sortir de cette situation angoissante!
Merci d'avance