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: 11

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: 5

Discussions similaires

Réponses
13
Affichages
3 K

Membres actuellement en ligne

Statistiques des forums

Discussions
294 371
Messages
1 938 081
Membres
188 641
dernier inscrit
pcayet