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

 

[Atiom]

Merci vgendron,
T’as complétement raison.
Pas si simple et en plus je me suis très mal exprimé. Encore désolé et merci de ton éclairage

J’ai complétement revu la chose et dans le fichier joint j’obtiens le résultat voulu mais pas en VBA.
Quelqu’un peux trouver une solution SVP.

 

[Dranreb]

Bonsoir.
Peut on définir une formule impliquant vos 3 données et devant rester invariante ?
Concrètement en quoi consistent exactement vos solutions mère et finale et le doseur ?

 

[Atiom]

Bonjour Dranreb,
Il s’agit d’un mélangeur d’engrais.

La solution mère – Peut être pure ( 100% ) ou dilué par exemple 50% ( 50% engrais/ 50 % eau )
Le doseur – est réglable lui aussi en %
La solution finale – est le résultat souhaité d’engrais à appliqué

Dans l’exemple de mon dernier fichier :
Solution mère à 20%
Doseur réglé à 1%
La solution finale = Concentration à 0.2% engrais = ( 20%/1%/100=0.2 %)

L’idée est de lorsque une des valeurs ( ABC ) change le calcule se face automatiquement sur les deux autres cellules.

Si la cellule A change à 50 ( 50%/1%/100=0.5 %) <- >B doit afficher 0.5 et C =1
Si la cellule C change à 2 ( 50%/2%/100=0.25 %)<-> A doit afficher 50 et et B = 0.25
Si la cellule B change à 0.125 ( 50%/2%/100=0.125 %) <-> A doit afficher 50 et C= 2

Merci de votre aide

 

[Dranreb]

Commet intervient le doseur sur la solution mère pour donner la solution finale ?
Est-ce un simple produit vu que ce sont toujours des pourcentages ?
solution finale = solution mère × doseur ?
Et si oui, c'est vrai, si on change la solution finale faut-il changer le doseur ou la solution mère ?

 

[Atiom]

Commet intervient le doseur sur la solution mère pour donner la solution finale ?
Le doseur reçoit la solution mère et la dilue à son tour en fonction de son réglage et on obtient la solution finale.
Est-ce un simple produit vu que ce sont toujours des pourcentages ?
Oui, s'il est pure il est à 100%
solution finale = solution mère × doseur ?
Oui
Et si oui, c'est vrai, si on change la solution finale faut-il changer le doseur ou la solution mère ?
Un des deux selon le besoin

Merci Dranreb

 

[Dranreb]

Peut-on définir comme règle que la dernière valeur changée ne doit plus changer pour le changement suivant d'une autre ?
Pourquoi n'avoir pas mis des formats de pourcentage ?

 

[Dranreb]

Ce serait quelque chose comme ça, mais testez bien tout …

Private Sub Worksheet_Change(ByVal Target As Range)
   Application.EnableEvents = False
   Select Case Target.Address
      Case "$A$5"
         If [B5].Font.Color = &HFF Then
            [C5].Value = 100 * [B5].Value / Target.Value
            [B5].Font.Color = 0
         Else
            [B5].Value = Target.Value * [C5].Value / 100
            [C5].Font.Color = 0
            End If
      Case "$B$5"
         If [A5].Font.Color = &HFF Then
            [C5].Value = 100 * Target.Value / [A5].Value
            [A5].Font.Color = 0
         Else
            [A5].Value = 100 * Target.Value / [C5].Value
            [C5].Font.Color = 0
            End If
      Case "$C$5"
         If [B5].Font.Color = &HFF Then
            [A5].Value = 100 * [B5].Value / Target.Value
            [B5].Font.Color = 0
         Else
            [B5].Value = [A5].Value * Target.Value / 100
            [A5].Font.Color = 0
            End If
      Case Else
         Application.EnableEvents = True: Exit Sub
      End Select
   Application.EnableEvents = True
   Target.Font.Color = &HFF
   End Sub

 

[Atiom]

Bonsoir,

👍 Cela fonctionne parfaitement!

Effectivement le formats de pourcentage serait plus adapté, mais l'important est que le calcule est juste.
Merci beaucoup Dranreb.🙂
Bonne soirée.