Extraction de coefficients d'une équation du second degré
résolu merci au revoir
Bonjour,
essai ceci:
Sub Extraction_coefficients_equation()
Dim i As integer, Nb As integer Dim Equation As String
Dim Nombre As Double
Equation = InputBox("tapez une équation ")
For i = 1 To Len(Equation)
If IsNumeric(Mid(Equation, i, 1)) Then
Nombre = Val(Mid(Equation, i, Len(Equation) - i + 1))
Nb = Nb + 1
Range("A" & Nb).Value = Nombre
i = i + Len(Str(Nombre)) - 1
End If
Next
End Sub
Cordialement
Bonjour,
Si allergique au VBA ce qui est dommage. Pour le plaisir :
Par formules équation écrite au format texte en A2
Equation au format texte
12x^2+3x+40 terme en x^2 12
=CNUM(GAUCHE(A2;TROUVE("x^2";A2;1)-1))terme en x 3
=CNUM(STXT(A2;TROUVE("+";A2;1)+1;TROUVE("x+";A2;1)-TROUVE("+";A2;1)-1))terme indépendant 40
=CNUM(DROITE(A2;NBCAR(A2)-TROUVE("x+";A2;1)-1))Contraintes : l'équation doit être écrite en commençant par une ' pour la cas ou le term en x^2 serait négatif
si le terme en x est <0 alors il faut écrire +- 10x par exemple
si le terme indépendant est <0 il faut également écrire +- 40
-12x^2+-3x+-40 terme en x^2 -12
terme en x -3
terme indépendant -40
Merci beaucoup, mais vous n'auriez pas une solution pour éviter ces contraintes ?
En incluant par exemple un ou() , pour éviter d'écrire +- ??
Re,
A tester sur une équation écrite en A2 avec une ' devant si le 1er caractère est - (pas d'autre possibilité)
Pour terme en x^2
=SI(GAUCHE(A2;1)="-";CNUM(GAUCHE(A2;TROUVE("x^2";A2;1)-1));CNUM(GAUCHE(A2;TROUVE("x^2";A2;1)-1)))pour terme en x
=SI(ESTERREUR(TROUVE("^2-";A2;1));CNUM(STXT(A2;TROUVE("+";A2;1)+1;SI(ESTERREUR(TROUVE("x+";A2;1));TROUVE("x-";A2;1);TROUVE("x+";A2;1))-TROUVE("+";A2;1)-1));CNUM(STXT(A2;TROUVE("-";A2;2);SI(ESTERREUR(TROUVE("x+";A2;1));TROUVE("x-";A2;1);TROUVE("x+";A2;1))-TROUVE("-";A2;2))))pour terme indépendant.
=SI(ESTERREUR(TROUVE("x-";A2;1));CNUM(DROITE(A2;NBCAR(A2)-TROUVE("x+";A2;1)-1));CNUM(DROITE(A2;NBCAR(A2)-TROUVE("x-";A2;1))))Merci beaucoup !! J'ai cherché un peu partout sur le net, sur différents forum, et t'es le seul à m'avoir donné la bonne solution !