Verification de l'erreur

Je me souviens maintenant, avec les coefficients et les valeurs, tout ça, et les courbes qui ne se croisent pas...
Tu as toujours la solution de concaténer (c'était moi, mais je n'avais pas compris que tu voulais le résultat dans la case) et de rédiger des formules classiques dans ton tableau.

Sinon, pour accélérer le calcul :
- un truc simple c'est de définir la variable "case" case="N41" dans le premier cas, ça évite que la macro recalcule à chaque fois
- idem pour la multiplication de 43*(vitesse-1) et 24 + terme -1 à mettre chacun dans une variable (et à faire une fois par vitesse et une fois par terme ; attention aux imbrications)

De plus le With Worksheets() ne sert à rien.

Ceci fait, indique-nous si la vitesse d'exécution est toujours trop lente

okai merci Zoul67 je vais essayer de mettre en application tous ca et je tiens au courant

oui exactement pour le concatner j'avais pas préciser qu'il me fallait le résultat dans la case ...

salut Zoul67

J'ai essayé d'appliquer ce que tu m'a conseiller sauf que j'ai pas réussi à bien introduire la variable et je vois pas l'integrer dans la boucle...

Salut messin57000,

En fait, ta macro s'appelait elle-même, c'est ça qui rendait l'exécution très longue... jusqu'à ce qu'une erreur apparaisse (dernière ligne : Call MAJsim_BB_New). Rien qu'en corrigeant ça, ça devrait aller, mais comme je ne l'ai vu que tardivement, j'ai aussi optimisé les variables calculées précédemment de nombreuses fois.

Code :

Sub MAJsim_BB_New()


    Dim wrksht As Object, graphique As Object, série As Object, shp As Object
    Dim formule As Variant
    Dim vitesse As Integer, terme As Integer
    Dim case_n As String
    Dim modulo_ligne As Integer, colonne_form As Integer
        
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    For vitesse = 1 To 8    '8 : 100%, 90%, ..., mini
        case_n = "*N" & (41 + 43 * (vitesse - 1))
        modulo_ligne = 43 * (vitesse - 1)
        For terme = 1 To 10    ' 10 : de I0 à N
            colonne_form = 24 + terme - 1
            formule = "=" & Cells(8 + modulo_ligne, colonne_form).Value & case_n & " ^ 6 + " & _
                        Cells(9 + modulo_ligne, colonne_form).Value & case_n & " ^ 5 + " & _
                        Cells(10 + modulo_ligne, colonne_form).Value & case_n & " ^ 4 + " & _
                        Cells(11 + modulo_ligne, colonne_form).Value & case_n & " ^ 3 + " & _
                        Cells(12 + modulo_ligne, colonne_form).Value & case_n & " ^ 2 + " & _
                        Cells(13 + modulo_ligne, colonne_form).Value & case_n & " ^ 1 + " & _
                        Cells(14 + modulo_ligne, colonne_form).Value
            Cells(41 + modulo_ligne, 4 + terme - 1).FormulaLocal = formule
        Next terme
        For terme = 12 To 17    ' 10 : de I0 à N
            colonne_form = 24 + terme - 1
            formule = "=" & Cells(8 + modulo_ligne, colonne_form).Value & case_n & " ^ 6 + " & _
                        Cells(9 + modulo_ligne, colonne_form).Value & case_n & " ^ 5 + " & _
                        Cells(10 + modulo_ligne, colonne_form).Value & case_n & " ^ 4 + " & _
                        Cells(11 + modulo_ligne, colonne_form).Value & case_n & " ^ 3 + " & _
                        Cells(12 + modulo_ligne, colonne_form).Value & case_n & " ^ 2 + " & _
                        Cells(13 + modulo_ligne, colonne_form).Value & case_n & " ^ 1 + " & _
                        Cells(14 + modulo_ligne, colonne_form).Value
            Cells(41 + modulo_ligne, 4 + terme - 1).FormulaLocal = formule
        Next terme
    Next vitesse

    'REMPLACE LES FORMULES DES GRAPHIQUES PAR LEURS VALEURS

    For Each graphique In Worksheets("BLACK-BOOK").ChartObjects
        For Each série In graphique.Chart.SeriesCollection
            série.Values = série.Values
            série.XValues = série.XValues
            série.Name = série.Name
        Next série
    Next graphique

    Set graphique = Nothing
    Set shp = Nothing

    Worksheets("BLACK-BOOK").Activate

    Application.Calculation = xlCalculationAutomatic

End Sub