[VBA-E] ScreenUpdating pour le classeur sauf un form

bonjour

voila en fait c'est un peu compliqué

j'ai une macro divisée en plusieurs module et j'ai un userform qui affiche l'évolution de la macro de telle manière que a la fin de chaque module, l'execution revient au form qui affiche que ce module est terminé et lance le suivant

De plus, je doit désactiver la fonction ScreenUpdating sur l'ensemble de ma macro.
Or pour que mon form affiche l'évolution, j'ai pensé réactiver ScreenUpdating le temps de le mettre a jour et enfin que désactiver ScreenUpdating pour le module suivant

Pour chacun des modules, mon code est le suivant (en l'occurence le module Chargement)

Code:

---

1 2 3 4 5

Application.ScreenUpdating = True Label_extract.Caption = "Terminé" Label_chargement.Caption = "En cours" Application.ScreenUpdating = False Chargement

---

Ainsi, avec ca, seul le form est censé afficher une évolution

Mais ce n'est pas le cas : il ne se réaffiche pas correctement malgré le ScreenUpdating...

Que puis-je faire pour ne mettre a jour l'affichage que de ce form?

remettre le ScreenUpdating... à True, une fois terminé le chargement... serait peut-être une idée inepte ? :lol:
inpete ou non : essayes quand même :!: :twisted:

c'est ce que je fait

en fait ce code ce répete autant de fois qu'il y a de modules

donc a chaque fin de module, screenupdating se réactive

Non, screnUpdating est fait pour éviter les mouvements dans ou entre feuilles de calculs quand des "Select la cellule ou la feuille" sont mis dans le code. Rien à voir avec l'userform.
Pour l'Userform, tu as repaint (F1) et pour lui donner le temps de se refaire la face, tu peux utiliser, en plus, doevents (j'ai vu ça hier sur une question posée ici :wink: )

Tu dis

A+

NB - Dans ton code, tu fais le contraire de ce que tu dis

Citation:

---

Application.ScreenUpdating = True 'Tu aurais dû mettre = False *******
Label_extract.Caption = "Terminé"
Label_chargement.Caption = "En cours"
Application.ScreenUpdating = False 'Tu aurais dû mettre = True '********
Chargement

---

Mais de toutes façons, c'est ni l'un ni l'autre... :lol:

un truc du genre :

Code:

---

1 2 3 4 5 6 7

Application.ScreenUpdating = True Doevents Label_extract.Caption = "Terminé" Label_chargement.Caption = "En cours" UserForm1.Repaint Application.ScreenUpdating = False Chargement

---

:?:

Je ne sais pas, moi, mais il me semble que tu le réactives avant le chargement (donc à chaque module, c'est vrai)..... mais, pour ce qui est du dernier module ?... tu l'actives, le désacives avant le dernier chargement et... quid de la dernière activation (nécessaire) ?

C'est très intérressant tout ca

de toutes facon, avec cette fonction Doevents jen'ai plus besoin de ScreenUpdating...

Donc je vais tester ca maintenant!

Bon ca yest j'ai éssayer avec le code suivant :

Code:

---

1 2 3 4 5

Doevents Label_extract.Caption = "Terminé" Label_chargement.Caption = "En cours" UserForm1.Repaint Chargement

---

et ca marche!

donc merci beaucoup!