Discussion :

[amalane]

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,

[AlainTech]

Essaye:

Code :

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

Me.Repaint

dans la boucle.

[zazaraignée]

Salut

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

[SfJ5Rpw8]

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

[amalane]

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é !

[ouskel'n'or]

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

[lullierjon]

Essaye:

Code :

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

Me.Repaint

dans la boucle.

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

Code :

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

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