Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer cette
erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer cette
erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer cette
erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
Bonsoir,
Chez moi, la macro fonctionne...
Bonsoir,
Chez moi, la macro fonctionne...
Bonsoir,
Chez moi, la macro fonctionne...
Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer cette
erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer cette
erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer cette
erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer cette
erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer cette
erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer cette
erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
L'erreur 13 indique une erreur d'incompatibilité de type de données.
Il est possible qu'il s'agisse d'un problème de séparateur décimal. La
fonction Val ne reconnait que le point comme séparateur décimal. Tom
Ogilvy utilise probablement le point également. Par contre tu utilises
peut-être la virgule.
Si c'est le cas, essaye de remplacer la ligne fautive par
rng(j).Value = cdbl(varr(i))
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.frBonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer
cette erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
L'erreur 13 indique une erreur d'incompatibilité de type de données.
Il est possible qu'il s'agisse d'un problème de séparateur décimal. La
fonction Val ne reconnait que le point comme séparateur décimal. Tom
Ogilvy utilise probablement le point également. Par contre tu utilises
peut-être la virgule.
Si c'est le cas, essaye de remplacer la ligne fautive par
rng(j).Value = cdbl(varr(i))
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer
cette erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
L'erreur 13 indique une erreur d'incompatibilité de type de données.
Il est possible qu'il s'agisse d'un problème de séparateur décimal. La
fonction Val ne reconnait que le point comme séparateur décimal. Tom
Ogilvy utilise probablement le point également. Par contre tu utilises
peut-être la virgule.
Si c'est le cas, essaye de remplacer la ligne fautive par
rng(j).Value = cdbl(varr(i))
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.frBonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer
cette erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
Bonjour,
Regardes donc si cette autre formule du même Tom fonctionne
Sub GetFormulab()
Dim cht As Chart
Dim ser As Series
Dim tline As Trendline
Dim sFormula As String
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tline = ser.Trendlines(1)
If tline.DisplayEquation Then
sFormula = tline.DataLabel.Text '<== this gets the formula
MsgBox "Formula is: " & sFormula
End If
End If
Next
End Sub
Sinon, pour essayer de comprendre le problème, tu pourrrais ...
mettre en remarque la ligne
rng(j).Value = Val(varr(i))
et rajouter à la place un
Debug.Print i; varr(i)
ça devrait te permettre de comprendre ce qui coince.
Bonjour,
Regardes donc si cette autre formule du même Tom fonctionne
Sub GetFormulab()
Dim cht As Chart
Dim ser As Series
Dim tline As Trendline
Dim sFormula As String
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tline = ser.Trendlines(1)
If tline.DisplayEquation Then
sFormula = tline.DataLabel.Text '<== this gets the formula
MsgBox "Formula is: " & sFormula
End If
End If
Next
End Sub
Sinon, pour essayer de comprendre le problème, tu pourrrais ...
mettre en remarque la ligne
rng(j).Value = Val(varr(i))
et rajouter à la place un
Debug.Print i; varr(i)
ça devrait te permettre de comprendre ce qui coince.
Bonjour,
Regardes donc si cette autre formule du même Tom fonctionne
Sub GetFormulab()
Dim cht As Chart
Dim ser As Series
Dim tline As Trendline
Dim sFormula As String
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tline = ser.Trendlines(1)
If tline.DisplayEquation Then
sFormula = tline.DataLabel.Text '<== this gets the formula
MsgBox "Formula is: " & sFormula
End If
End If
Next
End Sub
Sinon, pour essayer de comprendre le problème, tu pourrrais ...
mettre en remarque la ligne
rng(j).Value = Val(varr(i))
et rajouter à la place un
Debug.Print i; varr(i)
ça devrait te permettre de comprendre ce qui coince.
Bonjour François,
Grâce à l'astuce du debug.print, j'ai vu les valeurs. Je ne pense jamais
à ce truc. Il faut dire que je ne pratique pas les tableaux.
La version qui me convient est dans la réponse à Frédéric Sigonneau.
Grâce à vous deux, c'est résolu.
La Sub GetFormulab() est bien mais l'essentiel c'est de sortir les
coefs. Et ce point n'est pas traité, je souhaitais avoir une version
plus élégante que ma version "bourin".
Les mille et un mercis sont à partager avec Frédéric... :) Drôle d'idée
de mettre un nombre paire...
Bonne journée
fetnat
Bonjour,
Regardes donc si cette autre formule du même Tom fonctionne
Sub GetFormulab()
Dim cht As Chart
Dim ser As Series
Dim tline As Trendline
Dim sFormula As String
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tline = ser.Trendlines(1)
If tline.DisplayEquation Then
sFormula = tline.DataLabel.Text '<== this gets the formula
MsgBox "Formula is: " & sFormula
End If
End If
Next
End Sub
Sinon, pour essayer de comprendre le problème, tu pourrrais ...
mettre en remarque la ligne
rng(j).Value = Val(varr(i))
et rajouter à la place un
Debug.Print i; varr(i)
ça devrait te permettre de comprendre ce qui coince.
Bonjour François,
Grâce à l'astuce du debug.print, j'ai vu les valeurs. Je ne pense jamais
à ce truc. Il faut dire que je ne pratique pas les tableaux.
La version qui me convient est dans la réponse à Frédéric Sigonneau.
Grâce à vous deux, c'est résolu.
La Sub GetFormulab() est bien mais l'essentiel c'est de sortir les
coefs. Et ce point n'est pas traité, je souhaitais avoir une version
plus élégante que ma version "bourin".
Les mille et un mercis sont à partager avec Frédéric... :) Drôle d'idée
de mettre un nombre paire...
Bonne journée
fetnat
Bonjour,
Regardes donc si cette autre formule du même Tom fonctionne
Sub GetFormulab()
Dim cht As Chart
Dim ser As Series
Dim tline As Trendline
Dim sFormula As String
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tline = ser.Trendlines(1)
If tline.DisplayEquation Then
sFormula = tline.DataLabel.Text '<== this gets the formula
MsgBox "Formula is: " & sFormula
End If
End If
Next
End Sub
Sinon, pour essayer de comprendre le problème, tu pourrrais ...
mettre en remarque la ligne
rng(j).Value = Val(varr(i))
et rajouter à la place un
Debug.Print i; varr(i)
ça devrait te permettre de comprendre ce qui coince.
Bonjour François,
Grâce à l'astuce du debug.print, j'ai vu les valeurs. Je ne pense jamais
à ce truc. Il faut dire que je ne pratique pas les tableaux.
La version qui me convient est dans la réponse à Frédéric Sigonneau.
Grâce à vous deux, c'est résolu.
La Sub GetFormulab() est bien mais l'essentiel c'est de sortir les
coefs. Et ce point n'est pas traité, je souhaitais avoir une version
plus élégante que ma version "bourin".
Les mille et un mercis sont à partager avec Frédéric... :) Drôle d'idée
de mettre un nombre paire...
Bonne journée
fetnat
Bonjour,
Regardes donc si cette autre formule du même Tom fonctionne
Sub GetFormulab()
Dim cht As Chart
Dim ser As Series
Dim tline As Trendline
Dim sFormula As String
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tline = ser.Trendlines(1)
If tline.DisplayEquation Then
sFormula = tline.DataLabel.Text '<== this gets the formula
MsgBox "Formula is: " & sFormula
End If
End If
Next
End Sub
Sinon, pour essayer de comprendre le problème, tu pourrrais ...
mettre en remarque la ligne
rng(j).Value = Val(varr(i))
et rajouter à la place un
Debug.Print i; varr(i)
ça devrait te permettre de comprendre ce qui coince.
Bonjour François,
Grâce à l'astuce du debug.print, j'ai vu les valeurs. Je ne pense jamais
à ce truc. Il faut dire que je ne pratique pas les tableaux.
La version qui me convient est dans la réponse à Frédéric Sigonneau.
Grâce à vous deux, c'est résolu.
La Sub GetFormulab() est bien mais l'essentiel c'est de sortir les
coefs. Et ce point n'est pas traité, je souhaitais avoir une version
plus élégante que ma version "bourin".
Les mille et un mercis sont à partager avec Frédéric... :) Drôle d'idée
de mettre un nombre paire...
Bonne journée
fetnat
Bonjour,
Regardes donc si cette autre formule du même Tom fonctionne
Sub GetFormulab()
Dim cht As Chart
Dim ser As Series
Dim tline As Trendline
Dim sFormula As String
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tline = ser.Trendlines(1)
If tline.DisplayEquation Then
sFormula = tline.DataLabel.Text '<== this gets the formula
MsgBox "Formula is: " & sFormula
End If
End If
Next
End Sub
Sinon, pour essayer de comprendre le problème, tu pourrrais ...
mettre en remarque la ligne
rng(j).Value = Val(varr(i))
et rajouter à la place un
Debug.Print i; varr(i)
ça devrait te permettre de comprendre ce qui coince.
Bonjour François,
Grâce à l'astuce du debug.print, j'ai vu les valeurs. Je ne pense jamais
à ce truc. Il faut dire que je ne pratique pas les tableaux.
La version qui me convient est dans la réponse à Frédéric Sigonneau.
Grâce à vous deux, c'est résolu.
La Sub GetFormulab() est bien mais l'essentiel c'est de sortir les
coefs. Et ce point n'est pas traité, je souhaitais avoir une version
plus élégante que ma version "bourin".
Les mille et un mercis sont à partager avec Frédéric... :) Drôle d'idée
de mettre un nombre paire...
Bonne journée
fetnat
Bonjour,
Regardes donc si cette autre formule du même Tom fonctionne
Sub GetFormulab()
Dim cht As Chart
Dim ser As Series
Dim tline As Trendline
Dim sFormula As String
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tline = ser.Trendlines(1)
If tline.DisplayEquation Then
sFormula = tline.DataLabel.Text '<== this gets the formula
MsgBox "Formula is: " & sFormula
End If
End If
Next
End Sub
Sinon, pour essayer de comprendre le problème, tu pourrrais ...
mettre en remarque la ligne
rng(j).Value = Val(varr(i))
et rajouter à la place un
Debug.Print i; varr(i)
ça devrait te permettre de comprendre ce qui coince.
Bonjour François,
Grâce à l'astuce du debug.print, j'ai vu les valeurs. Je ne pense jamais
à ce truc. Il faut dire que je ne pratique pas les tableaux.
La version qui me convient est dans la réponse à Frédéric Sigonneau.
Grâce à vous deux, c'est résolu.
La Sub GetFormulab() est bien mais l'essentiel c'est de sortir les
coefs. Et ce point n'est pas traité, je souhaitais avoir une version
plus élégante que ma version "bourin".
Les mille et un mercis sont à partager avec Frédéric... :) Drôle d'idée
de mettre un nombre paire...
Bonne journée
fetnat
Bonjour,
Regardes donc si cette autre formule du même Tom fonctionne
Sub GetFormulab()
Dim cht As Chart
Dim ser As Series
Dim tline As Trendline
Dim sFormula As String
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tline = ser.Trendlines(1)
If tline.DisplayEquation Then
sFormula = tline.DataLabel.Text '<== this gets the formula
MsgBox "Formula is: " & sFormula
End If
End If
Next
End Sub
Sinon, pour essayer de comprendre le problème, tu pourrrais ...
mettre en remarque la ligne
rng(j).Value = Val(varr(i))
et rajouter à la place un
Debug.Print i; varr(i)
ça devrait te permettre de comprendre ce qui coince.
Bonjour François,
Grâce à l'astuce du debug.print, j'ai vu les valeurs. Je ne pense
jamais à ce truc. Il faut dire que je ne pratique pas les tableaux.
Bonsoir,
Quand ça commence à merdoyer, le Debug.Print c'est vraiment le premier
truc pour essayer de comprendre !La version qui me convient est dans la réponse à Frédéric Sigonneau.
Grâce à vous deux, c'est résolu.
La Sub GetFormulab() est bien mais l'essentiel c'est de sortir les
coefs. Et ce point n'est pas traité, je souhaitais avoir une version
plus élégante que ma version "bourin".
Les mille et un mercis sont à partager avec Frédéric... :) Drôle
d'idée de mettre un nombre paire...
Bonne journée
fetnat
Bonjour,
Regardes donc si cette autre formule du même Tom fonctionne
Sub GetFormulab()
Dim cht As Chart
Dim ser As Series
Dim tline As Trendline
Dim sFormula As String
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tline = ser.Trendlines(1)
If tline.DisplayEquation Then
sFormula = tline.DataLabel.Text '<== this gets the formula
MsgBox "Formula is: " & sFormula
End If
End If
Next
End Sub
Sinon, pour essayer de comprendre le problème, tu pourrrais ...
mettre en remarque la ligne
rng(j).Value = Val(varr(i))
et rajouter à la place un
Debug.Print i; varr(i)
ça devrait te permettre de comprendre ce qui coince.
Bonjour François,
Grâce à l'astuce du debug.print, j'ai vu les valeurs. Je ne pense
jamais à ce truc. Il faut dire que je ne pratique pas les tableaux.
Bonsoir,
Quand ça commence à merdoyer, le Debug.Print c'est vraiment le premier
truc pour essayer de comprendre !
La version qui me convient est dans la réponse à Frédéric Sigonneau.
Grâce à vous deux, c'est résolu.
La Sub GetFormulab() est bien mais l'essentiel c'est de sortir les
coefs. Et ce point n'est pas traité, je souhaitais avoir une version
plus élégante que ma version "bourin".
Les mille et un mercis sont à partager avec Frédéric... :) Drôle
d'idée de mettre un nombre paire...
Bonne journée
fetnat
Bonjour,
Regardes donc si cette autre formule du même Tom fonctionne
Sub GetFormulab()
Dim cht As Chart
Dim ser As Series
Dim tline As Trendline
Dim sFormula As String
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tline = ser.Trendlines(1)
If tline.DisplayEquation Then
sFormula = tline.DataLabel.Text '<== this gets the formula
MsgBox "Formula is: " & sFormula
End If
End If
Next
End Sub
Sinon, pour essayer de comprendre le problème, tu pourrrais ...
mettre en remarque la ligne
rng(j).Value = Val(varr(i))
et rajouter à la place un
Debug.Print i; varr(i)
ça devrait te permettre de comprendre ce qui coince.
Bonjour François,
Grâce à l'astuce du debug.print, j'ai vu les valeurs. Je ne pense
jamais à ce truc. Il faut dire que je ne pratique pas les tableaux.
Bonsoir,
Quand ça commence à merdoyer, le Debug.Print c'est vraiment le premier
truc pour essayer de comprendre !La version qui me convient est dans la réponse à Frédéric Sigonneau.
Grâce à vous deux, c'est résolu.
La Sub GetFormulab() est bien mais l'essentiel c'est de sortir les
coefs. Et ce point n'est pas traité, je souhaitais avoir une version
plus élégante que ma version "bourin".
Les mille et un mercis sont à partager avec Frédéric... :) Drôle
d'idée de mettre un nombre paire...
Bonne journée
fetnat
Bonjour,
Regardes donc si cette autre formule du même Tom fonctionne
Sub GetFormulab()
Dim cht As Chart
Dim ser As Series
Dim tline As Trendline
Dim sFormula As String
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tline = ser.Trendlines(1)
If tline.DisplayEquation Then
sFormula = tline.DataLabel.Text '<== this gets the formula
MsgBox "Formula is: " & sFormula
End If
End If
Next
End Sub
Sinon, pour essayer de comprendre le problème, tu pourrrais ...
mettre en remarque la ligne
rng(j).Value = Val(varr(i))
et rajouter à la place un
Debug.Print i; varr(i)
ça devrait te permettre de comprendre ce qui coince.
Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer cette
erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer cette
erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub
Bonsoir,
Par un beau dimanche de difficultés... je sollicite votre aide pour
supprimer une erreur 13 dans cette macro de Tom Ogilvy.
La sub() extrait les équations inscritent dans les labels d'un graphique.
Je ne maitrise pas les tableaux, si une pointure pouvait supprimer cette
erreur, j'en serais moult reconnaissant.
C'est à la fin sur cette ligne :
rng(j).Value = val(varr(i))
Merci pour l'aide
fetnat
Sub GetFormula()
'"Tom Ogilvy"
Dim sStr As String, sStr1 As String
Dim sFormula As String, j As Long
Dim i As Lon
Dim ser As Series, sChar As String
Dim tLine As Trendline
Dim cht As Chart
Dim rng As Range
Dim varr()
ReDim varr(1 To 10)
Set cht = ActiveSheet.ChartObjects(1).Chart
For Each ser In cht.SeriesCollection
If ser.Trendlines.Count = 1 Then
Set tLine = ser.Trendlines(1)
If tLine.DisplayEquation Then
sFormula = tLine.DataLabel.Text '<== this gets the
formula
sFormula = Application.Substitute(sFormula, _
"y = ", "")
sFormula = Application.Substitute(sFormula, _
" + ", ",")
'Debug.Print sFormula
j = 1
For i = 1 To Len(sFormula)
sChar = Mid(sFormula, i, 1)
If sChar = "," Or i = Len(sFormula) Then
If i = Len(sFormula) Then
sStr1 = sStr1 & sChar
End If
varr(j) = sStr1
sStr1 = ""
j = j + 1
Else
sStr1 = sStr1 & sChar
End If
Next
ReDim Preserve varr(1 To j - 1)
Set rng = Range("N6")
j = 1
For i = LBound(varr) To UBound(varr)
rng(j).Value = val(varr(i))
j = j + 1
Next i
Exit Sub
End If
End If
Next
End Sub