Étape 2: Faire de la Macro
Void QuadraticFormula()
Dim a aussi longtemps
Dim b As Long
Dim c aussi longtemps
MsgBox prompt: = "ax2 + bx + c = 0", _
Titre: = "résoudre un polynôme quadratique de la forme:"
un = Application.InputBox (prompt: = « Entrez la valeur du coefficient « a » », Type: = 1)
b = Application.InputBox (prompt: = « Entrez la valeur du coefficient « b » », Type: = 1)
c = Application.InputBox (prompt: = « Entrez la valeur du coefficient « c » », Type: = 1)
Si a = 0 Then
MsgBox « l’équation n’est pas quadratique »
D’autre
Si ((b * b)-(4 * a * c)) > = 0 Then
MsgBox ((-b + (Sqr ((b * b)-(4 * a * c))) / (2 * un))
MsgBox ((- b - (Sqr ((b * b)-(4 * a * c))) / (2 * un))
D’autre
MsgBox « Aucune Solution réelle - imaginaire »
End If
End If
End Sub