Discussion :

[repié]

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 :

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

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?

[jmfmarques]

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

[repié]

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

[ouskel'n'or]

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 )

Tu dis

A+

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

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...

[ThierryAIM]

un truc du genre :

Code :

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

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

:

[jmfmarques]

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

[repié]

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!

[repié]

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

Code :

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

1
2
3
4
5
Doevents
Label_extract.Caption = "Terminé"
Label_chargement.Caption = "En cours"
UserForm1.Repaint
Chargement

et ca marche!

donc merci beaucoup!