XL 2013 Equation second degré et code VBA

[Richard 58]

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

 

[sylvanu]

Bonjour Richard,
Quoique cela fait longtemps ... en PJ un essai.
La syntaxe est Complex(Reel,Imaginaire,"i")

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 :

http://lescop.gmp.free.fr/IMG/pdf/trinome_complexe.pdf

 

[jmfmarques]

Bonjour
S'agissant d'abord de la résolution mathématique, quelle est donc l'équation que vous avez établie pour déterminer l' "unité imaginaire" nécessaire ?
VBA ne résout rien, lui. Il applique.

 

[Richard 58]

Bonjour Sylvanu

Cela a l'air bon.
Je vois avec lui

Par contre, pourquoi un module 1 supplémentaire ?

 

[sylvanu]

Bonjour,
Juste un oubli de suppression.
L'enregistreur de macro permet rapidement de voir la syntaxe. Là j'ai vu que la syntaxe de Complexe était Complex(a,b,"i"). C'est tout, vous pouvez supprimer.

 

[Richard 58]

ok merci