Bonjour le forum,
A chaque jour son problème :
Au menu aujourd'hui, exécution continue différent de l'exécution en pas à pas !
Je voudrais récupérer les coefficients de régression et les mettre dans des cases a coté des graph !
Le code marche quand je le lance en exécution pas à pas ! je vois bien apparaitre les valeurs de R² dans les cases et ça ne disparait pas.
Lorsque je le lance avec F5 our avec le bouton de l'userform qui lance ce sub, il me fait bien les graphs mais ne m'affiche pas les R².
Je m'en remets a vos connaissances.
A chaque jour son problème :
Au menu aujourd'hui, exécution continue différent de l'exécution en pas à pas !
Je voudrais récupérer les coefficients de régression et les mettre dans des cases a coté des graph !
Le code marche quand je le lance en exécution pas à pas ! je vois bien apparaitre les valeurs de R² dans les cases et ça ne disparait pas.
Lorsque je le lance avec F5 our avec le bouton de l'userform qui lance ce sub, il me fait bien les graphs mais ne m'affiche pas les R².
Je m'en remets a vos connaissances.
Code:
Sub recap()
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
i = 1
li = 2
col = 1
For k = 1 To 2
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 '
ActiveChart.SeriesCollection(1).Trendlines.Add
ActiveChart.SeriesCollection(1).Trendlines(1).Select
Selection.DisplayRSquared = True
If k = 1 Then
Range("F" & li + 4).Value = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text
ElseIf k = 2 Then
Range("I" & li + 4).Value = ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text
End If
' Mise en place des graphiques '
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
i = i + 1
li = li + 13
Next
Next
li = 2
col = 10
Next
End Sub
Dernière édition: