Macro pour équation dans excel Résolu/Fermé

Question

Bonjour,

Je voudrais extraire les données qu’il y a dans une courbe de tendance (équation d’une droite).
En gros, j’ai l’équation d’une droite 0,1319x + 216,35 et je voudrais une macro qui puisse extraire dans 2 cases différentes tout ce qu’il y a avant le x càd 0,1319 dans 1 case et tout ce qu’il y a après le x càd 216,35 dans 1 autre case .

Le problème réside dans le fait que j’ai beaucoup d’équations avec des nombres de décimales différentes.
Ex :
--------------------------------------------------------------------------
Droites	                Pente	 Ordonnée à l’origine
--------------------------------------------------------------------------
0,0858x + 219,7	0,0858	219,7
0,19x + 217	0,19	217
0,218x + 218,32	0,218	218,32
---------------------------------------------------------------------------


Merci par avance

pijaku · Answer

Salut,
Je sais le terme "éclatement" est violent. J'ai pourtant décidé d'appeler comme cela la macro suivante :

Sub eclatement()
Dim cel As String
Dim place As Integer
Dim t As Integer
Dim r As Integer
ActiveSheet.Range("A2").Select
Do While ActiveCell <> ""
cel = ActiveCell.Value
place = InStr(1, cel, "x", 1)
t = place - 1
r = Len(cel) - place
ActiveCell.Offset(0, 1) = Left(cel, t)
ActiveCell.Offset(0, 2) = Right(cel, r)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

ça doit fonctionner...

Macro pour équation dans excel

1 réponse

Discussions similaires