XL 2019 Macro à 3 conditions

[Atiom]

Bonjour,

Je souhaite obtenir une macro à 3 conditions sur la même ligne.

Je mets une petit fichier pour une meilleure compréhension

Merci d’avance pour votre aide

 

[vgendron]

Bonjour..
comprend pas bien l'intérêt..

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:C5")) Is Nothing Then
    Application.EnableEvents = False
    Range("A5:C5") = Target
    Application.EnableEvents = True
End If
End Sub

 

[mapomme]

Bonsoir @Atiom 🙂,
Quelle est la relation entre les cellules A5, B5 et C5 ?

 

[vgendron]

Bonsoir @Atiom 🙂,
Quelle est la relation entre les cellules A5, B5 et C5 ?

Hello mapomme

vu l'explication donnée.et l'exemple.. je dirais;. les 3 identiques.. d'où je ne voix pas l'intéret...

 

[mapomme]

vu l'explication donnée.et l'exemple.. je dirais;. les 3 identiques.. d'où je ne voix pas l'intéret...

Bonjour @vgendron 🙂.
Une autre possible : le max des trois 🙃

 

[vgendron]

ou l'indice couleur de la température ambiante divisée par 3 pondéré par le prix de l'essence...🤣

 

[Phil69970]

Bonjour à tous

Vincent tu as oublier Pi dans ta formule

l'indice couleur de la température ambiante divisée par 3 pondéré par le prix de l'essence...

l'indice couleur de la température ambiante divisée par 3 pondéré par le prix de l'essence * Pi

Autrement la formule est fausse 🤣 🤣

 

[mapomme]

Re,

Un peu plus subtile : la moyenne des trois (vérifie aussi l'égalité des trois) :

Private Sub Worksheet_Change(ByVal Target As Range)
   On Error GoTo err001
   Application.EnableEvents = False
   If Not Intersect(Target, Range("a5:c5")) Is Nothing Then Range("a5:c5") = Application.Average(Range("a5:c5"))
err001:
   Application.EnableEvents = True
End Sub

 

[Atiom]

Bonjour,

Effectivement très mauvaise explication. Désolé!

Il s’agit d’une division en fonction des valeurs des cellules A5,B5 et C5

Selon la concentration de A5 ( Solution-mère ) et le réglage de C5 ( doseur) le résultat de B5 ( Solution finale ) change.

Exemple
Si A5 est à 50% et C5 reste à 100% nous devons obtenir en B5 ( Solution finale ) un résultat de 50%.

Dans ce cas B5 est égal à C5 devisé par A5

Mais si nous souhaitons obtenir une ( Solution finale ) à 10% en B5 les valeurs de A5 ou C5 doivent changer. Les deux en même temps ou alors un seul.

 

[vgendron]

l'explication est toujous aussi légère...
B=C/A ==> OK

si tu changes A: on garde B pour calculer C, ou on garde C pour calculer B ?
si tu changes B: on garde A pour cacluler C ou on garde C pour calcule A ?
...
...

 

[TooFatBoy]

Hi,

l'explication est toujous aussi légère...

Peut-être une simple 📏 de 3️⃣ ??? 🤔

 

[Atiom]

Merci de vos réponses;
A=B/C
B=C/A
C=A/C

T'as raison TooFatBoy il s'agit d'une simple règle de 3

 

[TooFatBoy]

A=B/C
B=C/A

😲 🙃 🤯

C=A/C

🤪

 

[vgendron]

euh oui. une règle de trois, ou division. si vous voulez, ...
n'empeche que si tu ne modifies qu'UNE seule des inconnues;. il t'en restes2
si tu mets A=5
je peux te sortir une quantité de solutions... 10/2 15/3 20/4 25/5.....donc.. si tu ne fixes pas B ou C.. bah. on ne saura pas faire;.

 

[vgendron]

et si tu en fixes deux.. comment on sait lesquelles tu as fixées...