Tion équation 2éme degré

Bonsoir;

je suis Novice en VBA, je viens de créer ma 1ére macro pour la résolution d'une équation de 2 éme degré et je trouve que ca marche pas puisque ca me donne toujours la même valeur pour les 2 solutions.Merci de m’assister. je vous serai reconnaissant

voila le code

Sub Resolution(a, b, c, delta)

Dim a As Integer

Dim b As Integer

Dim c As Integer

Dim delta As Integer

a = Cells(3, 3)

b = Cells(3, 4)

c = Cells(3, 5)

Cells(3, 6).Value = b ^ 2 - 4 * a * c

delta = Cells(3, 6)

If (delta >= 0) Then

Cells(3, 7) = (0.5 * (-b + (delta ^ 0.5))) / a

Cells(3, 8) = (0.5 * (-b - (delta ^ 0.5))) / a

Else:

Cells(3, 7) = " l'ensemble vide "

Cells(3, 8) = " ER "

End If

End Sub

Bonsoir,

Le code me semble bon et fonctionne bien !

Juste un point : les variables [a,b,c] étant alimentées dans la fonction, pas besoin de les passer en paramètres.

Exemple en PJ du même code

A tester

Bonne soirée

Bouben

Merci infiniment Bouben,

Ca fonctionne bien