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

 

[sylvanu]

Bonjour Garnote,
Essayez "Refresh" pour rafraichir le graphique :

Méthode Refresh (Excel Graph)

Référence VBA Excel

learn.microsoft.com

ou encore avec : ActiveWorkbook.RefreshAll

Sous XL2007 VBA 6.3 le refresh s'effectue correctement, donc je ne peux guère vous aider plus.

 

[nullosse]

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? 😊

Salut,
il manque un DoEvents dans la boucle :

Sub Weierstrass()
    Dim f As String
    For i = 0 To 9
        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
        'Question: Pouquoi le graphique ne se met pas à jour?
        Application.Wait (Now + TimeValue("00:00:01"))
        DoEvents
        f = ""
    Next i
End Sub

Nullosse

 

[garnote]

Bonjour Garnote,
Essayez "Refresh" pour rafraichir le graphique :

Méthode Refresh (Excel Graph)

Référence VBA Excel

learn.microsoft.com

ou encore avec : ActiveWorkbook.RefreshAll

Sous XL2007 VBA 6.3 le refresh s'effectue correctement, donc je ne peux guère vous aider plus.
Regarde la pièce jointe 1229114

Merci pour ton aide, mais j'ai beau essayer d'insérer un Refresh un RefreshAll ou un DoEvents dans ma macro, rien n'y fait!

 

[garnote]

Bonjour Garnote,
Essayez "Refresh" pour rafraichir le graphique :

Méthode Refresh (Excel Graph)

Référence VBA Excel

learn.microsoft.com

ou encore avec : ActiveWorkbook.RefreshAll

Sous XL2007 VBA 6.3 le refresh s'effectue correctement, donc je ne peux guère vous aider plus.
Regarde la pièce jointe 1229114

 

[sylvanu]

Re,
Désolé.
Vous ne seriez pas en calcul manuel ?
Testez alors un Calculate avant la tempo.

 

[garnote]

Bonjour sylvanu,
Je n'étais pas en calcul manuel et encore bloqué! Qu'est-ce qui ne va pas dans cette macro ? :

Sub Weierstrass()
    Dim f As String
    For i = 0 To 9
        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
        ActiveSheet.Calculate
        DoEvents
        Application.Wait (Now + TimeValue("00:00:01"))
        f = ""
    Next i
End Sub

 

[sylvanu]

Qu'est-ce qui ne va pas dans cette macro ?

Sur mon PC ça marche ( voir GIF ) donc cette macro est correcte.
Il s'agit surement d'autre chose que la macro.
Vous n'avez pas répondu à ma question.

 

[garnote]

Salut,
il manque un DoEvents dans la boucle :

Sub Weierstrass()
    Dim f As String
    For i = 0 To 9
        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
        'Question: Pouquoi le graphique ne se met pas à jour?
        Application.Wait (Now + TimeValue("00:00:01"))
        DoEvents
        f = ""
    Next i
End Sub

Nullosse

Eh bien ça alors, chez moi, ce DoEvents ne règle pas mon problème.
Mystère et boule de gomme! 😒

 

[sylvanu]

Re,
Peut être cela vient il de votre fichier lui même qui serait bogué.
Testez cette PJ, je n'ai fait que recopié votre fichier, et rajouté quelques lignes.

 

[garnote]

Sur mon PC ça marche ( voir GIF ) donc cette macro est correcte.
Il s'agit surement d'autre chose que la macro.
Vous n'avez pas répondu à ma question.

La question? Je ne suis pas en calcul manuel et ça ne fonctionne toujours pas.
Bizarre!

Re,
Peut être cela vient il de votre fichier lui même qui serait bogué.
Testez cette PJ, je n'ai fait que recopié votre fichier, et rajouté quelques lignes.

Salut sylvanu,
Un grand merci pour ta patience, mais ton document, chez moi, fait tout ce qu'il faut faire,
sauf mettre à jour le maudit graphique. Absurde! 😱
Bonne idée d'indiquer le nombre d'étapes en J8.
Merci

 

[garnote]

Salut,
il manque un DoEvents dans la boucle :

Sub Weierstrass()
    Dim f As String
    For i = 0 To 9
        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
        'Question: Pouquoi le graphique ne se met pas à jour?
        Application.Wait (Now + TimeValue("00:00:01"))
        DoEvents
        f = ""
    Next i
End Sub

Nullosse

Même avec DoEvents, pas de mise à jour continue du graphique, en tout cas chez moi.
Une affaire de fou! 😒
Merci.

 

[garnote]

Bonsoir sylvanu et nullosse,
Avec le même genre de formules, cette fois-ci, mon graphique se met à jour, mais seulement quelques fois! 😄
Encore merci pour votre collaboration.

 

[sylvanu]

Re,
Votre fichier est vide. 😉

essayez cette PJ pour voir, j'ai changé de méthode, peut être que cela marchera. 😉

 

[sylvanu]

Re,
Peut être que 365 pour accélérer le processus fige tout avant la fin de la macro.
En PJ on exécute la macro toutes les secondes puis on sort. A tester.