Bonjour le forum !!!
Bon ce matin je bloque un peu
voila je souhaite faire des régressions : linéaire dans un premier temps puis polynomiales dans un deuxième temps, j'augmente l'ordre du polynome jusqu'a l'ordre 5.
Je récupère a chaque régression, le coefficient R² correspondant que je stock dans un tableau : montab(ordre)
Enfin je regarde quel coeff R² dans mon tableau est le plus grand et j'affiche sur ma feuille l'ordre, mle R² et la courbe correspondante, et je vire tout les autres.
Le problème c'est que
l'erreur vient de cette ligne
j'avais essayé
Meme erreur dans les 2 cas.
Je vous mets le code de ce module ci dessous bien que je n'ai besoin d'aide que sur la partie mettre les données dans le tableau. Enfin pour le moment
Bon ce matin je bloque un peu
voila je souhaite faire des régressions : linéaire dans un premier temps puis polynomiales dans un deuxième temps, j'augmente l'ordre du polynome jusqu'a l'ordre 5.
Je récupère a chaque régression, le coefficient R² correspondant que je stock dans un tableau : montab(ordre)
Enfin je regarde quel coeff R² dans mon tableau est le plus grand et j'affiche sur ma feuille l'ordre, mle R² et la courbe correspondante, et je vire tout les autres.
Le problème c'est que
dans mon tableau
l'erreur vient de cette ligne
VB:
montab("" & ordre) = rdeux
VB:
montab(ordre) = rdeuxJe vous mets le code de ce module ci dessous bien que je n'ai besoin d'aide que sur la partie mettre les données dans le tableau. Enfin pour le moment
VB:
Sub recap()
Dim montab() As Double
rang3 = Worksheets("DonnéesCorrélations").UsedRange.Rows.Count
' Supprimer anciens graphs '
For Each Legraphe In ActiveSheet.ChartObjects
Legraphe.Delete
Next
' Boucle afin de faire TOUT les graph
For k = 1 To 2
i = 1
li = 2
col = 1
For l = 1 To 4
For m = 1 To 5
' Ajouter nouveau graph '
ActiveSheet.Shapes.AddChart.Select
' Supprimer séries déjà affichées '
Do Until ActiveChart.SeriesCollection.Count = 0
ActiveChart.SeriesCollection(1).Delete
Loop
' Choix type de courbe '
ActiveChart.ChartType = xlXYScatterLines
' Choix et ajout des séries '
ActiveChart.SeriesCollection.NewSeries
ActiveChart.HasTitle = True
abscisse k, l
ordonnée m
' Facteur de corrélation '
For ordre = 1 To 5
If ordre = 1 Then
ActiveChart.SeriesCollection(1).Trendlines.Add
ActiveChart.SeriesCollection(1).Trendlines(ordre).Select
Selection.DisplayRSquared = True
rdeux = Right(ActiveChart.SeriesCollection(1).Trendlines("" & ordre).DataLabel.Text, 6)
'MsgBox rdeux
montab("" & ordre) = rdeux
Else
ActiveChart.SeriesCollection(1).Trendlines.Add
ActiveChart.SeriesCollection(1).Trendlines("" & ordre).Select
With Selection
.Type = xlPolynomial
.Order = 2
End With
Selection.DisplayRSquared = True
rdeux = Right(ActiveChart.SeriesCollection(1).Trendlines("" & ordre).DataLabel.Text, 6)
montab("" & ordre) = rdeux
End If
Next
For ordre = 1 To 5
MsgBox montab(ordre)
Next
'Range("F" & li + 4).Value = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text
' Mise en place des graphiques '
If k = 1 Then
With Worksheets("Récapitulatif")
.ChartObjects(i).Top = .Rows(li).Top
.ChartObjects(i).Left = .Columns(col).Left
.ChartObjects(i).Height = 165.75
.ChartObjects(i).Width = 300
End With
Else
With Worksheets("Récapitulatif1")
.ChartObjects(i).Top = .Rows(li).Top
.ChartObjects(i).Left = .Columns(col).Left
.ChartObjects(i).Height = 165.75
.ChartObjects(i).Width = 300
End With
End If
i = i + 1
li = li + 13
Next
Next
Worksheets("Récapitulatif1").Select
Next
End Sub
Dernière édition:
