[difficile] résolution d'équation [Résolu]

[boboss123]

Bonjour,

J'ai une une équation à résoudre via Excel : 2.56 = ((A/B) + 1) x 1.225
=> il faut donc que je trouve les valeurs de A et de B

Là où ça se complique, c'est que j'ai une liste de valeurs : A et B doivent avoir l'une des valeurs de la liste.
=> il y aura donc une probabilité qu'il y ait plusieurs résultats possibles : je n'ai pas besoin de tous les avoir; un me suffit.

Là où ça se complique encore plus, c'est qu'il est (fortement) probable qu'il n'y ait aucune combinaison possible de la liste de valeur qui puisse résoudre l'équation => j'aimerais donc avoir le résultat le plus proche avec l'affichage du Delta de l'erreur.

=> ça vous semble possible à faire ?

Merci d'avance,

Remarque : si vous pensez qu'il y a un meilleur outil qu'Excel pour faire ça, ça ne me dérange pas d'en changer...

[carden752]

Bonjour,

Pourquoi ne pas calculer toutes les valeurs A/B et trouver la première valeur qui résoud l'équation soit A/B=2,56/1,225-1 ou à défaut la valeur la plus proche de 2,56/1,225-1.

Je ferais quelque chose de ce style calculer

Code :

min(ABS(C1:C200))

où dans C1 à C200, il y a les valeurs

Code :

=A1/B1-(2,56/1,225-1)

jusqu'à

Code :

=A200/B200-(2,56/1,225-1)

[boboss123]

Mais comment fais-tu pour générer automatiquement toutes les valeurs de A/B à partir de la liste ?

faudrait qu'a partir de mes deux colonnes A et B que je puisse générer un tableau avec trois colonnes (A, B et A/B) qui contienne tous les résultat possible triés par ordre croissant de A/B.

[d0n32]

Un code pas trop optimisé mais qui pourrait te permettre d'obtenr ce que tu souhaites :

Tu entres ta liste pour A dans la colonne A, pareil pour B avec la colonne B.
La macro te retourne le résultat de l'équation avec chaque couple A/B et t'affiche la solution si elle existe.
En colonne D, l'écart relatif avec 0.
Colonne E, rappel des valeurs de A et B pour le résultat obtenu

En espérant que ça te soit utile !

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub trouverSolution()
 
Dim cel As Range, cel2 As Range
Dim i As Integer
 
i = 0
 
For Each cel In Range("A1:A15") 'si 15 valeurs dans la colonne A pour A par exemple
    For Each cel2 In Range("B1:B15")
        If cel2.Value = 0 Then
            Range("C1").Offset(i, 0) = "erreur div. par zéro"
        Else
            Range("C1").Offset(i, 0) = Round(((cel.Value / cel2.Value) + 1) * 1.225 / 2.56, 2)
            Range("D1").Offset(i, 0) = Range("C1").Offset(i, 0).Value / 100
            Range("E1").Offset(i, 0) = "A : " & cel.Value & " B : " & cel2.Value
            If Range("C1").Offset(i, 0) = 0 Then
                MsgBox "Solution : A = " & cel.Value & " et B = " & cel2.Value
            End If
        End If
        i = i + 1
    Next cel2
Next cel
 
End Sub

[boboss123]

merci,

On est obligé d'utiliser VBA pour générer toutes les combinaisons possibles ?

[d0n32]

Non, mais comme tu disais que ça ne te dérangeait pas de changer de méthode

Sinon, il me semble que la fonction INDIRECT pourrait t'aider. Ne la maitrisant pas, je ne m'avancerai pas à te conseiller là dessus, mais une petite recherche sur le forum devrait t'aider à y voir plus clair pour l'utiliser

[boboss123]

oki, merci