Microsoft 365 Mise à jour d'un graphique

[garnote]

Bonjour,

J'ai une macro qui génère 10 formules qui changent les valeurs d'une plage associée à un graphique.
Après chaque changement, elle fait une pause de une seconde, mais le graphique ne se met pas à jour
suite au changement de formule. Que faire, mon dieu, que faire? 😊
Content d'apprendre que le site est en bonne santé.

Bonne journée!
garnote

 

[job75]

Bonsoir à tous,

Testez avec :

Dim i As Byte, t 'mémorise les variables

Sub Weierstrass()
    Calcul
    If i = 0 Then t = Now
    i = i + 1
    If i > 9 Then i = 0: Exit Sub
    Application.OnTime t + i / 86400, "Weierstrass"
End Sub

Sub Calcul()
    Dim n As Byte, an$, bn$, f$, Texte$
    For n = 0 To i
        an = "a^" & n
        bn = "b^" & n
        f = f & "+" & an & "*COS(" & bn & "*PI()*d9)"
    Next n
    Texte = Right(f, Len(f) - 1)
    Range("E9:E109") = "=" & Texte
    f = ""
End Sub

A+