XL 2013 Equation second degré et code VBA

Richard 58

XLDnaute Nouveau
Bonjour,
Mon fils débute en vba et par conséquent moi aussi.
Il aimerait savoir comment créer un code VBA pour résoudre une équation du 2nd degré avec un discriminant négatif (en nombre complexe)
Voilà ou il en est. Il a fait un essai de formule mais cela ne fonctionne pas

Pouvez vous nous éclairer ?

Merci
 

Pièces jointes

  • ResolutionEquationSecondDegre.xlsm
    20.9 KB · Affichages: 13

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Richard,
Quoique cela fait longtemps ... en PJ un essai.
La syntaxe est Complex(Reel,Imaginaire,"i")
VB:
Cells(6, 2) = WorksheetFunction.Complex((-b / (2 * a)), (Sqr(-delta) / (2 * a)), "i")
Cells(7, 2) = WorksheetFunction.Complex((-b / (2 * a)), (-Sqr(-delta) / (2 * a)), "i")
De plus a et b me semblent erronés :
 

Pièces jointes

  • ResolutionEquationSecondDegre.xlsm
    25 KB · Affichages: 8

Discussions similaires

Réponses
21
Affichages
333
Réponses
2
Affichages
99

Statistiques des forums

Discussions
311 737
Messages
2 082 030
Membres
101 876
dernier inscrit
JULIEN21370