Lancer traitement après affichage UserForm [Résolu]

beavis6511 · 12/05/2011, 12h17

Bonjour,
comme l'indique le titre, je voudrais afficher un userform sur appui d'un bouton (jusque là c'est bon), que le userform s'affiche et que des traitements démarrent ensuite (pour changer la couleur de label par exemple).

Actuellement j'ai mis mes traitements dans le Private Sub UserForm_Initialize().
Le userform s'affiche mais uniquement à la fin des traitements ce qui ne me va pas. Je voudrais qu'il s'affiche et que les traitements arrivent ensuite.

Merci

beavis6511 · 12/05/2011, 14h29

Pour info mon IHM contient plusieurs lignes de labels comme ceci:
PC01 OFF
PC02 OFF
etc..
pour chaque pc je fais un ping. Si le ping retourne 1 je passe le label OFF à ON.

Je viens de mettre mon code dans la partie Private Sub UserForm_Activate(). Maintenant j'ai mon userForm qui s'affiche sur fond blanc. Les labels étant toujours affichés à la fin de tous les ping.

beavis6511 · 12/05/2011, 15h08

bon j'ai finalement contourné mon problème en rajoutant un Me.repaint dans ma boucle.

12/05/2011, 12h17	#1
beavis6511 Futur Membre du Club Inscription : juin 2004 Messages : 46 Détails du profil Informations forums : Inscription : juin 2004 Messages : 46 Points : 15 Points : 15	Lancer traitement après affichage UserForm Bonjour, comme l'indique le titre, je voudrais afficher un userform sur appui d'un bouton (jusque là c'est bon), que le userform s'affiche et que des traitements démarrent ensuite (pour changer la couleur de label par exemple). Actuellement j'ai mis mes traitements dans le Private Sub UserForm_Initialize(). Le userform s'affiche mais uniquement à la fin des traitements ce qui ne me va pas. Je voudrais qu'il s'affiche et que les traitements arrivent ensuite. Merci
	00

12/05/2011, 14h29	#2
beavis6511 Futur Membre du Club Inscription : juin 2004 Messages : 46 Détails du profil Informations forums : Inscription : juin 2004 Messages : 46 Points : 15 Points : 15	Pour info mon IHM contient plusieurs lignes de labels comme ceci: PC01 OFF PC02 OFF etc.. pour chaque pc je fais un ping. Si le ping retourne 1 je passe le label OFF à ON. Je viens de mettre mon code dans la partie Private Sub UserForm_Activate(). Maintenant j'ai mon userForm qui s'affiche sur fond blanc. Les labels étant toujours affichés à la fin de tous les ping.
	00

12/05/2011, 15h08	#3
beavis6511 Futur Membre du Club Inscription : juin 2004 Messages : 46 Détails du profil Informations forums : Inscription : juin 2004 Messages : 46 Points : 15 Points : 15	bon j'ai finalement contourné mon problème en rajoutant un Me.repaint dans ma boucle.
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email