exécution continue différent de l'exécution en pas à pas

[totaljim]

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.

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

 

[totaljim]

Re : exécution continue différent de l'exécution en pas à pas

Personne ?
C'est pas assez clair ou personne n'a la réponse ?

 

[PMO2]

Re : exécution continue différent de l'exécution en pas à pas

Bonjour,

Ce serait plus facile si vous mettiez un classeur simplifié en pièce jointe.
Je pense que vous obtiendrez plus facilement une réponse.