userform non modale reste blanc sauf à fin

[jhofman]

Bonjour,

un userform non modal de suivi de traitement dans lequel j esoushaite afficher les données en cours de traitement s'affiche et reste blanc jusqu'à la fin de mon traitement. est-ce lié à ScreenUpdating = false ?

   With Application
       .ScreenUpdating = false
    End With

UserForm1TextBox1 = text1
UserForm1.Show 0

 

[Roland_M]

Re : userform non modale reste blanc sauf à fin

bonjour

non !
pour rafraichir un userform: Me.Repaint

 

[jhofman]

Re : userform non modale reste blanc sauf à fin

Merci
c'est impec
j'ai donc

UserForm1.SHow 0

(...)
puis

UserForm1.TextBox1 = text1
UserForm1.repaint

José

 

[tototiti2008]

Re : userform non modale reste blanc sauf à fin

Bonjour à tous,

pour info, un petit
DoEvents
fonctionne également plutôt bien si bien placé 🙂

 

[jhofman]

Re : userform non modale reste blanc sauf à fin

merci à vous deux.

en effet UserForm.Repaint et DoEvent semblent produire le même résultat

 

[tototiti2008]

Re : userform non modale reste blanc sauf à fin

un exemple où DoEvents est plus intéressant que Repaint :

 

[jhofman]

Re : userform non modale reste blanc sauf à fin

Bravo tototiti2008

c'est assez explicite

 

[jhofman]

Re : userform non modale reste blanc sauf à fin

rebonjour,


que faut-il ajouter dans les références pour que le statusbar fonctionne ?

 

[tototiti2008]

Re : userform non modale reste blanc sauf à fin

je crois :
Microsoft Forms 2.0 Object Library

 

[jhofman]

Re : userform non modale reste blanc sauf à fin

c'est ok.


j'avais des proéblème avec

Private Sub UserForm_Initialize()
 UserForm1.ProgressBar1.Value = 0
End Sub

lors de l'instruction

 UserForm1.show 0

finalement j'ai supprimer cet initialize et c'est ok