XL 2019 Macro à 3 conditions

Atiom · 7 Septembre 2024

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 · 7 Septembre 2024

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 · 7 Septembre 2024

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 · 8 Septembre 2024

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 · 8 Septembre 2024

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 · 8 Septembre 2024

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 · 8 Septembre 2024

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 · 8 Septembre 2024

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

VB:

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 · 8 Septembre 2024

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.

XL 2019 Macro à 3 conditions

Atiom

XLDnaute Occasionnel

Pièces jointes

Atiom

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

Atiom

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Atiom

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Atiom

XLDnaute Occasionnel

Discussions similaires