Application.screenupdating = True ne fonctionne pas sur tous les PC

Bonjour,

application.screenupdating est utiliser pour arrêter ou rétablir le rafraîchissement écran afin d'éviter le scintillement ou les déplacement pendant l’exécution d'un code macro ce qui permet de raccourcir le temps d’exécution du code.

pour cela en début de code on écrit
application.screenupdating=false

et en fin de code ne pas oublier de rétablir les fonctions d'Excel avec
application.screenupdating=True
avant ton End Sub

Bonjour,

« Mais quand je teste sur un autre PC, cela ne fonctionne plus. »
C'est-à-dire ?
Pour avoir une réponse, il faut le contexte et des précisions ....
Que se passe-t'il (ou pas) ??
Quelles versions d'Excel sur chaque PC ?
Combien de fenêtres ouvertes ?
Quelle est le code utilisé ???
Il n'y a pas besoin de screenupdating pour voir une courbe évoluer temporellement !
Éventuellement une gestion des calculs ....

Bonjour le fil,

Là comme c'est dit dans le sujet de base, pour moi il s'agirait plutôt de

ActiveWorbook.RefreshAll

?!

Bonjour,

là où ça ne fonctionne pas correctement, ça ne serait pas sur excel >=2013 et sa nouvelle interface SDI des fois ?
A la place de ScreenUpdating essaie de jouer sur la visibilité de la fenêtre :

ThisWorkbook.Windows(1).Visible = False
' ton code que tu veux accélerer
ThisWorkbook.Windows(1).Visible = True

Contrôle que tu aies sensiblement le même gain en calcul.
Les résultats devraient être à jour au final.
eric

Bonjour,

Et merci pour vos réponses.

Je mets en PJ un graphe descriptif. (PS : je n'ai pas réussi à joindre le graphe finalement…)
En haut à gauche on a le graphe de départ de la température, qui est renseignée dans les cellules N2 à N11 de la feuille "Listes". Les valeurs sont obtenues aléatoirement pour simuler l'acquisition de données par un capteur, avec 36,6°C et 38,8°C comme température extrémales.
En cliquant sur le bouton refroidir/réchauffer, le sub Refroidir() s'exécute.

Voici le code :

Static TemperatureRel As Single 'Différence entre température actuelle et Température cible 37,5.
Static n As Integer
TemperatureRel = Worksheets("Listes").Range("N11").Value - 37.5
n = TemperatureRel * 10 * Sgn(TemperatureRel) 'n est le nombre de fois que l'on va devoir incrémenter la température (par tranche de 0,1°C) pour obtenir la température finale 37,5°C.

If n = 0 Then
MsgBox "Le patient n'a pas besoin d'être refroidi ni réchauffé"
Else
Worksheets("Alerte").Range("K13") = "Action en cours" 'Message pour que l'utilisateur patiente pendant l'exécution du code

For j = 1 To n 'Boucle faisant évoluer le graphique comme si on avait une acquisition en temps réel du refroidissement, jusqu'à ce que le point tout ? droite du graphe atteigne 37,5°C
Worksheets("Listes").Range("N11").Value = Worksheets("Listes").Range("N11").Value - Sgn(TemperatureRel) * 0.1
Worksheets("Listes").Range("N2").Value = Worksheets("Listes").Range("N3").Value
Worksheets("Listes").Range("N3").Value = Worksheets("Listes").Range("N4").Value
Worksheets("Listes").Range("N4").Value = Worksheets("Listes").Range("N5").Value
Worksheets("Listes").Range("N5").Value = Worksheets("Listes").Range("N6").Value
Worksheets("Listes").Range("N6").Value = Worksheets("Listes").Range("N7").Value
Worksheets("Listes").Range("N7").Value = Worksheets("Listes").Range("N8").Value
Worksheets("Listes").Range("N8").Value = Worksheets("Listes").Range("N9").Value
Worksheets("Listes").Range("N9").Value = Worksheets("Listes").Range("N10").Value
Worksheets("Listes").Range("N10").Value = Worksheets("Listes").Range("N11").Value
Application.ScreenUpdating = True
Next j

For i = 1 To 8 'Permet d'atteindre le régime stable : tous les points du graphe sont à 37,5°C
Worksheets("Listes").Range("N2").Value = Worksheets("Listes").Range("N3").Value
Worksheets("Listes").Range("N3").Value = Worksheets("Listes").Range("N4").Value
Worksheets("Listes").Range("N4").Value = Worksheets("Listes").Range("N5").Value
Worksheets("Listes").Range("N5").Value = Worksheets("Listes").Range("N6").Value
Worksheets("Listes").Range("N6").Value = Worksheets("Listes").Range("N7").Value
Worksheets("Listes").Range("N7").Value = Worksheets("Listes").Range("N8").Value
Worksheets("Listes").Range("N8").Value = Worksheets("Listes").Range("N9").Value
Worksheets("Listes").Range("N9").Value = Worksheets("Listes").Range("N10").Value
Worksheets("Listes").Range("N10").Value = Worksheets("Listes").Range("N11").Value
Application.ScreenUpdating = True

Next i
End If
EffacerConvergence 'autre sub qui permet d'effacer les messages type "Action en cours"

End Sub

@Mike-31 :
Excel 2007 est installé sur mon PC1 et Excel 2016 sur mon PC2.
Sur la version 2007, si je ne mets pas "Application.ScreenUpdating = True" comme ci-dessus, le graphe ne se mets à jour qu'à la fin du code. Mais si je le mets, ça fonctionne bien, on voit le graphe qui se modifie pendant le code (comme le graphe en bas à droite)
Sur la version 2016, qu'on mette ou pas ScreenUpdating = True, ça ne change pas le résultat, le graphe ne se met à jour qu'à la fin de lexécution du sub. Dans ce cas, autant que je fasse un sub en disant "Remplacer toutes les cellules de N2 à N11 par 37,5°C", ça sera plus rapide à s'exécuter… mais c'est pas ce que je souhaiterais avoir..

@Patrice33740 : Le bouton refroidir/réchauffer est situé sur la feuille "Alerte", sur laquelle le graphe est également présent (si on peut updater que la feuille alerte, l'exécution du sub sera peut-être plus rapide que si on update tout le classeur)

@Yoyo01000 et @Eriiic: J'ai essayé d'abord ActiveWorbook.RefreshAll ouis ThisWorkbook.Windows(1).Visible = True en les disposant à la place des Application.ScreenUpdating = True ci-dessus, aucun des deux ne fonctionne. on n'a une mise à jour du graphe qu'après l'exécution du sub Refroidir()

Je ne parviens pas à vous joindre ni la l'image explicative ni le fichier Excel par contre..

Bonjour,

on y voit un peu plus clair sur ton besoin.
Essaie en mettant un DoEvents avant le Next.
eric

PS :
Ce sont mes yeux qui me jouent un tour ?

For i = 1 To 8

tu ne te sers même pas de i dans ta boucle, pas étonnant que rien ne change...
Idem pour j.

Bonjour,

Remplaces

    Application.ScreenUpdating = True

Par un recalcul de la feuille qui contient le graphique (je suppose que c'est Alerte) :

    Worksheets("Alerte").Calculate

Autre part, tes déclarations en Static sont inutiles vu que tu calcule la valeur à chaque fois
Remplaces Static par Dim

Patrice33740,

Tu as raison, le graphe est bien dans Worksheets(Alerte).
J'ai essayé Worksheets("Alerte").Calculate mais ça ne fonctionne toujours pas.
Toutes les valeurs de mon tableau se mettent à jour en temps réel. Seul le graphe se met à jour qu'après la fin de l'exécution de la macro sur Excel 2016

Merci pour Dim à la place de Static :)

Bonjour,

Finalement, j'ai opté pour un DoEvents à la place
Comme c'est trop rapide je l'ai mis dans une boucle :

Option Explicit
Sub Test()
Dim TemperatureRel As Double 'Différence entre température actuelle et Température cible 37,5.
Dim n As Integer, i As Integer, j As Integer, t As Variant, r As Range
Const delai% = 400
  Set r = Worksheets("Listes").Range("N2:N11")
  TemperatureRel = Worksheets("Listes").Range("N11").Value - 37.5
  n = TemperatureRel * 10 * Sgn(TemperatureRel)
  If n = 0 Then
    MsgBox "Le patient n'a pas besoin d'être refroidi ni réchauffé"
  Else
    Worksheets("Alerte").Range("K13") = "Action en cours"
    t = r.Value
    For i = 1 To n
      For j = LBound(t) To UBound(t) - 1
        t(j, 1) = t(j + 1, 1)
      Next j
      t(UBound(t), 1) = t(UBound(t), 1) - Sgn(TemperatureRel) * 0.1
      r.Value = t
      For j = 1 To delai: DoEvents: Next j
    Next i
    For i = 1 To UBound(t) - 1
      For j = LBound(t) To UBound(t) - 1
        t(j, 1) = t(j + 1, 1)
      Next j
      r.Value = t
      For j = 1 To delai: DoEvents: Next j
    Next i
  End If
  Worksheets("Alerte").Range("K13") = ""

End Sub

Exemple : https://mon-partage.fr/f/7MJHL71i/

Merci beaucoup Patrice33740 !!!!

Cela fonctionne très bien grâce à ton code, c'est exactement ce que je cherchais à faire !
Ca faisait un bon moment que je bloquais ! Merci !