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
331
Réponses
2
Affichages
98

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal