[VBA-E] test sur une chaine de charactère

Version imprimable

27/03/2006, 16h06
gruget

[VBA-E] test sur une chaine de charactère

bonjour
voila mon pb je copie une formule de régression de courbe dans une cellule et je voudrais récupérer les coefficient devant les x indépendemment cad voici ce que contient ma cellule:

Citation:

y = 2E-09x4 - 2E-05x3 + 0,052x2 - 42,153x + 346771

et je voudrais récupérer dans des cellules spécifiques

Citation:

2E-09
2E-05
0,052
42,153
346771

comment puis-je faire?
j'avais pensé à faire des test sur les charactères mais je ne sais pas comment définir ma formule comme une chaine de caractère ni incrémenter dessus
si qq un a une idée
merci davance
rémi
27/03/2006, 16h11
Megaxel

Bon, pour convertir "quelquechose" en String, tu as la fonction "CStr( )".
Après, ce que tu veux faire est assez horrible à faire, à moins d'être vraiment certain de ce que tu vas récupérer... Enfin, je pense.
Il n'y a pas moyen pour toi de récupérer ces coefficients en amont, plus tôt dans ton appli?
27/03/2006, 16h21
gruget

je suis d'accord que c'est affreux
en fait pour obtenir cette formule je crée un graph à partir de valeurs puis je crée la courbe de tendance polynomiale et j'affiche la fonction associé que je copie et colle dans une cellule.
J'aimerais bien recupérer les coefficients sans avoir à faire tout ca le pb c que pour une regression polynomiale j'ai pas trouvé la fonction qui fait ca (si seulement elle existe)
si ca peux vous aider
merci pour Cstr() je vais qd mm essayer
rémi
27/03/2006, 16h32
Megaxel

Et comment est-ce que tu crées la "courbe de tendance polynômiale"? Ou plus simplement, comment trouves-tu l'équation de la fonction?
27/03/2006, 16h32
ouskel'n'or

Hello,

Déjà, je remarque que dans "y = 2E-09x4 - 2E-05x3 + 0,052x2 - 42,153x + 346771" les signes + et - sont précédés et suivis d'un espace.
Je commencerais par remplacer les trois caractères " + " ou " - " par un simple espace et ensuite, tu devrais pouvoir utiliser Split pour avoir un tableau de dimension 5. Restera plus qu'à remplir tes cellules.

Juste pour l'idée, en VBA 97, j'ai pas split. :cry:

A+

l'équation c'est excel qui la calcule pour moi voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Graphpm()
'
' graph2 Macro
' Macro enregistrée le 20/03/2006 par rémi
'
 
Dim marange As Range
Dim sh As Worksheet
 
Set sh = ThisWorkbook.Sheets("j=1mm")
    sh.Select
 
  For i = 7 To 403 Step 6
 
 
    Set marange = Union(sh.Range(sh.Cells(i, 20), sh.Cells(i + 5, 20)), sh.Range(sh.Cells(i, 25), sh.Cells(i + 5, 25)))
    marange.Select
    Charts.Add
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=marange, PlotBy:=xlColumns
 
    ActiveChart.Location Where:=xlLocationAsObject, name:="j=1mm"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "qf en l/h"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Pm en Pa"
    End With
    ActiveChart.SeriesCollection(1).Select

C EST LA QUIL CREE LA COURBE ET AFFICHE L EQUATION

Code:

1
2
3
ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=4 _
        , Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:= _
        False).Select

LA JE COPIE ET COLLE L EQUATION DANS UNE CELLULE"

Code:

1
2
3
4
5
6
sh.Cells(i, 26).Value = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text  
 ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False
    Selection.Delete
  Next i
End Sub

voili voila
sinon ouskelnor mon pb c justement de remplir les cellules comment est-ce que je peux lui dire de ne selectionner qu'un partie de ma chaine de caractère
rémi

Hello,

J'ai retrouvé ça que j'avais mis de côté en prévision de mon passage à office 2003...

Code:

1
2
3
4
5
6
        Temp = Replace(Temp, vbCrLf, "") 'on vire le vbCrlf de fin
        tabletemp = Split(Temp, vbTab)
 
        For j = 0 To UBound(tabletemp)
            Sheets(SheetName).Cells(i, j + 1).Value = tabletemp(j)
        Next j

on modifie pour que ça réponde à ta demande :

Code:

1
2
3
4
5
TaFormule = "y = 2E-09x4 - 2E-05x3 + 0,052x2 - 42,153x + 346771" 
TaFormule = Replace(TaFormule, "y = ", "") ' => "2E-09x4 - 2E-05x3 + 0,052x2 - 42,153x + 346771"
TaFormule = Replace(TaFormule, " + ", " ") ' => "2E-09x4 - 2E-05x3 0,052x2 - 42,153x 346771"
TaFormule = Replace(TaFormule , " - ", " ") '  => "2E-09x4 2E-05x3 0,052x2 42,153x 346771"
TableauDeTaFormule = Split(TaFormule, " ")

'Et enfin

Code:

1
2
3
4
        NoColonne = 1 ' ou 2 ou 3... ( ! )
        For j = 0 To UBound(TableauDeTaFormule)
            Worksheets(NomFeuille).Cells(j+1, NoColonne).Value = TableauDeTaFormule(j)
        Next j

Tu peux essayer pour moi, je n'ai ni replace ni split comme je te l'ai dit

A+

Edit
Le tableau commençant à zéro, j'ai corrigé le code le faisant commencer par 1

ca y est tout marche impeccablement
merci ouskel'nor et dsl pour la lenteur de la réponse mais javais un autre projet en cours
voici le code que j'ai utitlisé finalement:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
TaFormule = sh.Cells(i, 26).Value
TaFormule = Replace(TaFormule, "y = ", "") ' => "2E-09x4 - 2E-05x3 + 0,052x2 - 42,153x + 346771"
TaFormule = Replace(TaFormule, " + ", " ") ' => "2E-09x4 - 2E-05x3 0,052x2 - 42,153x 346771"
TaFormule = Replace(TaFormule, " - ", " ")  '  => "2E-09x4 2E-05x3 0,052x2 42,153x 346771"
TaFormule = Replace(TaFormule, "x4", "")
TaFormule = Replace(TaFormule, "x3", "")
TaFormule = Replace(TaFormule, "x2", "")
TaFormule = Replace(TaFormule, "x", "")
TableauDeTaFormule = Split(TaFormule, " ")
k = UBound(TableauDeTaFormule)
        For j = 0 To k
            Worksheets("j=1mm").Cells(i + j + 1, 26).Value = TableauDeTaFormule(j)
        Next j

il y d'autres indices du au prog général
merci
rémi