Discussion :

[jerjou26]

Bonjour,

Je m'essaye au VBA et je ne comprends pas pourquoi Application.ScreenUpdating = False est en fait égal à True lorsque je survole la ligne en mode pas à pas (voir la copie d'écran jointe). Je confirme qu'il est bien True car lorsque j'execute le code je vois tout défiler. (J'ai bien remis = True avant le End Sub.)

Merci d'avance pour précieuse aide.

[jfontaine]

Bonjour,

Quand le curseur est sur une ligne de code, cette ligne ne c'est pas encore exécutée.
Normalement, ScreenUpdating sera False sur la ligne suivante

[jerjou26]

Merci pour la réponse, mais quand je passe a la ligne suivante c'est toujours = a true!

[gFZT82]

Bonjour,

Plutôt que l'info-bulles, essaie d'utiliser un espion pour visualiser l'état de Application.ScreenUpdating.

Cordialement.

[jerjou26]

Merci gFZT82,

Voir la copie écran jointe avec l'espion. Le ScreenUpdating est toujours = true.
Et c'est bizarre car en utilisant l'espion j'ai l'impression que c'est l'inverse qui se produit, c'est à dire:
quand le ScreenUpdating = False, l'espion indique true et inversement.
Je comprends pas!

[gFZT82]

J’ai effectué le test ci-dessous et j’obtiens des résultats cohérents avec l’espion, la fenêtre exécution et la boite message.
Par contre, l’info-bulle retourne un état « erroné ».

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
 
MsgBox "Etat initial => Application.scr = " & Application.ScreenUpdating
Debug.Print "Etat initial => Application.scr = " & Application.ScreenUpdating
 
Application.ScreenUpdating = False
MsgBox "1er Basculement => Application.scr = " & Application.ScreenUpdating
Debug.Print "1er Basculement => Application.scr = " & Application.ScreenUpdating
 
Application.ScreenUpdating = True
MsgBox "2eme Basculement => Application.scr = " & Application.ScreenUpdating
Debug.Print "2eme Basculement => Application.scr =" & Application.ScreenUpdating
 
End Sub

Pour l’info-bulle, je n'ai pas d'explication

Cordialement.