==Equations==

[Admin]

Sub EquationDuPremierDegre()
Msg = "L'equation desiree est-elle "
Msg2 = "Desirez-vous voir les etapes intermediaires ?"
'"Debut" a ete mis pour pouvoir revenir ici grace a l'option GoTo
Debut:
'Appliquer a A, B ,C et D des nombres
A = InputBox("Ax + B = Cx + D. Quel serait votre nombre A ?")
'la prochene etape a ete mise pour que si l'utilisateur ne met5 rien dans la case, alors la macro s;arrete
If A = "" Then End
B = InputBox(A & "x + B = Cx + D. Quel serait votre nombre B ?")
If B = "" Then End
C = InputBox(A & "x + " & B & " = Cx + D. Quel serait votre nombre C ?")
If C = "" Then End
D = InputBox(A & "x + " & B & " = " & C & "x + D. Quel serait votre nombre D ?")
If D = "" Then End
Ans = MsgBox(Msg & A & "x + " & B & " = " & C & "x +" & D & " ?", vbYesNoCancel)
If Ans = vbYes Then MsgBox "La solution de l'equation est x = " & (D - B) / (A - C)
If Ans = vbYes Then Ans2 = MsgBox(Msg2, vbYesNo)
If Ans2 = vbNo Then End
'L'option vbNewLine sert a faire un retour a la ligne, terminer une phrase par " _" veut dire qu'elle se
'prolonge sur la ligne suivante
If Ans2 = vbYes Then MsgBox "Les etapes intermediaires sont : " _
& vbNewLine & A & "x + " & B & " = " & C & "x + " & D _
& vbNewLine & A & "x + " & B & " - " & B & " = " & C & "x + " & D & " - " & B _
& vbNewLine & A & "x - " & C & "x = " & C & "x - " & C & "x + " & (D - B) _
& vbNewLine & (A - C) & "x = " & (D - B) _
& vbNewLine & "x = " & (D - B) & " / " & (A - C) _
& vbNewLine & "x = " & (D - B) / (A - C)
If Ans = vbNo Then GoTo Debut
If Ans = vbCancel Then End
End Sub

=================================================================================

Sub EquationA2Inconnues()
Debut:
A = InputBox("Ax + By = C" _
& vbNewLine & "Dx + Ey = F" _
& vbNewLine & "Quel serait votre nombre A ?")
If A = "" Then End
B = InputBox(A & "x + By = C" _
& vbNewLine & "Dx + Ey = F" _
& vbNewLine & "Quel serait votre nombre B ?")
If B = "" Then End
C = InputBox(A & "x + " & B & "y = C" _
& vbNewLine & "Dx + Ey = F" _
& vbNewLine & "Quel serait votre nombre C ?")
If C = "" Then End
D = InputBox(A & "x+ " & B & "y = " & C _
& vbNewLine & "Dx + Ey = F" _
& vbNewLine & "Quel serait votre nombre D ?")
If D = "" Then End
E = InputBox(A & "x+ " & B & "y = " & C _
& vbNewLine & D & "x + Ey = F" _
& vbNewLine & "Quel serait votre nombre E ?")
If E = "" Then End
F = InputBox(A & "x+ " & B & "y = " & C _
& vbNewLine & D & "x + " & E & "y = F" _
& vbNewLine & "Quel serait votre nombre F ?")
If F = "" Then End
Ans = MsgBox("L'equation desiree est-elle :" _
& vbNewLine & A & "x+ " & B & "y = " & C _
& vbNewLine & D & "x + " & E & "y = " & F, vbYesNo)
If Ans = vbNo Then GoTo Debut
If Ans = vbYes Then MsgBox "La solution de l'equation est :" _
& vbNewLine & "x = " & (F / D) - (E * F * A - E * D * C) / (E * A - D * B) * (1 / D) _
& vbNewLine & "y = " & (F * A - D * C) / (E * A - D * B)
Ans2 = MsgBox("Voulez-vous voir les etapes intermediaires ?", vbYesNo)
X = "(" & C & " - " & B & "y) / " & A & ")"
Y = (F * A - D * C) / (E * A - D * B)
If Ans2 = vbNo Then End
If Ans2 = vbYes Then MsgBox "Les etapes intermediaires sont : " _
& vbNewLine & A & "x+ " & B & "y = " & C _
& vbNewLine & D & "x + " & E & "y = " & F _
& vbNewLine _
& vbNewLine & A & "x = " & C & " - " & B & "y" _
& vbNewLine & "x = (" & C & " - " & B & "y) / " & A _
& vbNewLine _
& vbNewLine & D & X & " + " & E & "y = " & F _
& vbNewLine & "(" & D & " * " & C & " - " & D & " * " & B & "y) / " & A & " + " & E & "y = " & F _
& vbNewLine & "(" & D & " * " & C & ") / " & A & " - (" & D & " * " & B & "y) / " & A & " + " & E & "y = " & F _
& vbNewLine & "- (" & D & " * " & B & "y) / " & A & " + " & E & "y = " & F & " - (" & D & " * " & C & ") / " & A _
& vbNewLine & "- (" & D & " * " & B & "y + " & E & " * " & A & "y) / " & A & " = (" & F & " * " & A & " - " & D & " * " & C & ") / " & A _
& vbNewLine & "- " & D & " * " & B & "y + " & E & " * " & A & "y = " & F & " * " & A & " - " & D & " * " & C _
& vbNewLine & "(" & E & " * " & A & " - " & D & " * " & B & ")y = " & F & " * " & A & " - " & D & " * " & C _
& vbNewLine & "y = (" & F & " * " & A & " - " & D & " * " & C & ") / (" & E & " * " & A & " - " & D & " * " & B & ")" _
& vbNewLine & "y = " & (F * A - D * C) / (E * A - D * B) _
& vbNewLine _
& vbNewLine & D & "x + " & E & "y = " & F _
& vbNewLine & D & "x + " & E & " * " & Y & " = " & F _
& vbNewLine & D & "x = " & F & " - " & E & " * " & Y _
& vbNewLine & "x = (" & F & " - " & E & " * " & Y & ") / " & D _
& vbNewLine & "x = " & (F / D) - (E * F * A - E * D * C) / (E * A - D * B) * (1 / D) _
& vbNewLine _
& vbNewLine & "x = " & (F / D) - (E * F * A - E * D * C) / (E * A - D * B) * (1 / D) _
& vbNewLine & "y = " & (F * A - D * C) / (E * A - D * B)
End Sub

==================================================================================

Sub EquationProduitNul()
Debut:
A = InputBox("(Ax + B)(Cx + D) = 0, Quel serait votre nombre A ?")
If A = "" Then End
B = InputBox("(" & A & "x + B)(Cx + D) = 0, Quel serait votre nombre B ?")
If B = "" Then End
C = InputBox("(" & A & "x + " & B & ")(Cx + D) = 0, Quel serait votre nombre C ?")
If C = "" Then End
D = InputBox("(" & A & "x + " & B & ")(" & C & "x + D) = 0, Quel serait votre nombre D ?")
If D = "" Then End
Ans = MsgBox("L'equation desiree est-elle : (" & A & "x + " & B & ")(" & C & "x + " & D & ") = 0 ?", vbYesNo)
If Ans = vbNo Then GoTo Debut
If Ans = vbYes Then Ans2 = MsgBox("La solution de l'equation est :" _
& vbNewLine & "x = " & -B / A _
& vbNewLine & "ou x = " & -D / C _
& vbNewLine & "Desirez-vous connaitre les etapes intermediaires ?", vbYesNo)
If Ans2 = vbNo Then End
If Ans2 = vbYes Then MsgBox "Les etapes intermediaires sont :" _
& vbNewLine & "(" & A & "x + " & B & ")(" & C & "x + " & D & ") = 0" _
& vbNewLine _
& vbNewLine & "Or si A * B = 0 Alors A = 0 ou B = 0" _
& vbNewLine _
& vbNewLine & A & "x + " & B & " = 0" _
& vbNewLine & A & "x = " & -B _
& vbNewLine & "x = " & -B & " / " & A _
& vbNewLine & "x = " & -B / A _
& vbNewLine _
& vbNewLine & C & "x + " & D & " = 0" _
& vbNewLine & C & "x = " & -D _
& vbNewLine & "x = " & -D & " / " & C _
& vbNewLine & "x = " & -D / C _
& vbNewLine _
& vbNewLine & "donc x = " & -B / A & " ou x = " & -D / C
End Sub