[VBA-E] Rafraichir le Userform pendant l'exec d'une macro

Bonjour,

Ma question est la suivante :

Je voudrais, pour rendre une appli Excel plus conviviale, afficher des informations sur un userform durant le déroulement d'une macro.
Plus précisemment, ma macro analyse le contenu de fichiers textes d'un ensemble de répertoires, ça peut durer plusieures minutes, et je voudrais faire apparaitre sur le Userform la progression de cette analyse (ex 450 fichiers analysés sur 1250), cette progression augmentant tres rapidement tout de meme, je vous l'accorde.

J'ai aucun probleme pour afficher cette progression sur le userform car il suffit de le modifier dans la boucle de la macro, mais l'affichage ne se fait pas en temps réel, au demarrage de la macro, le user form reste figé et n'affiche son contenu modifié qu'a la fin de l'execution (sauf si j'interromp la macro, alors on peut lire à quel n° de fichier on en est).

N'y a t'il pas un moyen de forcer Excel a afficher le userform rafraichi à chaque passage de la boucle ?


Merci d'avance,

Essaye:

Code:

---

Me.Repaint

---

dans la boucle.

Salut

Vérifie si le userForm n'aurait pas, par hasard, une propriété Autoredraw. Si oui, mets la à True.

rajoute un DoEvents à ta boucle... pour permettre à l'affichage de se mettre à Jour...

Pas de propriété autoredraw (mais ya une proprieté drawbuffer que je ne connais pas)

En revanche les fonctions repaint et doevents que vous m'avez proposées fonctionnent, merci beaucoup pour votre efficacité !

Un petit :resolu: peut être ? (le bouton en bas à gauche) pour qu'on sache que c'est résolu... :wink:

Citation:

---

Envoyé par AlainTech

Essaye:

Code:

---

Me.Repaint

---

dans la boucle.

---

J'ai utilisé cette méthode (UserForm_Initialize) et ça fonctionne impeccable !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton6_Click() 'Pour l'exemple Dim If Then   ElseIf   Else   End If   UserForm_Initialize End Sub

---