Probleme VBA equation second degré

bonjour à tous

voila mon problème

je cherche à résoudre une équation du second degré sous vba et j'ai écrit u programme mais le problème c'est qu'il ne marche pas et je ne vois pas vraiment pourquoi

si quelqu'un pouvait m'aider sa serait vraiment sympa

merci d'avance

Salut gege37,

Les textbox 2 et 3 ont été inversés. Les textbox 4 et 5 ont été inversés. Lorsque tu les auras remis dans l'ordre utilise ce code (je n'ai pas vérifié les calculs) :

Private Sub CommandButton2_Click()
Dim A As Double
Dim B As Double
Dim C As Double
Dim delta As Double
Dim x1 As Double
Dim x2 As Double

    A = TextBox1.Value
    B = TextBox2.Value
    C = TextBox3.Value
    delta = B * B - 4 * A * C
    Select Case delta
        Case Is > 0
            int6 = ("l'équation admet deux racines distinctes")
            x1 = (-B - Sqr(delta)) / (2 * A)
            x2 = (-B + Sqr(delta)) / (2 * A)
            TextBox4.Value = x1
            TextBox5.Value = x2
        Case 0
            int6 = ("l'équation admet une solution")
            x1 = -B / (2 * Sqr(A))
            TextBox4.Value = x1
        Case Is < 0
            int6 = ("l'équation n'admet aucune solution réelle")
    End Select

End Sub

Fais attention, tu dois prendre en compte le fait que A peut-être égale à 0. Tu peux rencontrer une erreur dans le premier cas (delta>0).

Pour le cas delta=0 c'est pas Sqr(A) qu'il faut mettre.