Discussion :

[ADbtr]

Bonjour,

je lance une macro à l'aide d'un bouton situé sur une feuille. Afin de suivre l'état d'avancement de ma macro, j'ai insérer un userform sur lequel j'ai placé 1 progressbar. Cependant, celui-ci m'affiche un fond tout blanc sans progressbar. (vous trouverez en PJ les imprim écran de mon écran en mode création et de celui pendant ma macro)

Code dans ma macro lors de l'ouverture du UserForm1 :

Code :

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

UserForm1.Show

J'ai pourtant réglé le ShowModal sur False.

Avez-vous une réponse à ce problème???

Merci d'avance pour vos réponses

AD

[Pierre Fauconnier]

Bonjour

Il faut placer DoEvents au début de la procédure, voire juste avant la ligne de rafraîchissement de la progressbar.

Un peu plus de code serait bienvenu

[ADbtr]

En effet, le DoEvents permet de s'affranchir du fond blanc, merci. Je vois ma progressbar. Cependant, celle-ci ne se met pas à jour, elle reste vierge :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
UserForm1.Show 'avec le ShowModal sur False
 
While Range("D" & i) <> ""
DoEvents 
ProgressBar1 = (i - 41) * 100 / NbReferencesATraiter
'[CODE ASSEZ LONG A TRAITER]
'[...]
Wend

Ce code est stocké dans un module.

Auparavant, je l'avais stocké sous un bouton du UserForm dans lequel est ma progressbar, je voyais bien mes bars avancer, mais là : rien!