Sujet Précédent Sujet Suivant

Macro pour équation dans excel

Résolu/Fermé
andrei1230 Messages postés 3 Date d'inscription vendredi 6 mars 2009 Statut Membre Dernière intervention 18 mai 2010 - 6 mars 2009 à 10:24
 andrei1230 - 7 mars 2009 à 11:38
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
A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
6 mars 2009 à 12:52
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...
0
andrei1230
7 mars 2009 à 11:38
Bonjour,

Merci ça marche nikel,a+
andrei1230
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses