Macro pour équation dans excel
Résolu
andrei1230
Messages postés
4
Statut
Membre
-
andrei1230 -
andrei1230 -
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
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
Configuration: Windows 2000 Internet Explorer 6.0
1 réponse
-
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...
