Userform pour patienter

[noemie45]

Hello

j'ai fait un userform pour qu'une petite fenêtre s'affiche pour informer aux utilisateurs du fichiers qu'un traitement est en cours.

Mon pb est que mon usrform s'affiche mais la fenêtre est vierge. Il n'y a que le titre de mon userform qui s'affiche.

je ne comprends pas pourquoi !!
une petite aide???

merci

 

[Pierrot93]

Re : Userform pour patienter

Bonjour,

applique le "repaint" après le "show"...

Load UserForm1
UserForm1.Show 0
UserForm1.Repaint

bon après midi
@+

 

[Pierrot93]

Re : Userform pour patienter

Re,

aarf j'avais pas vu, mais supprime peut être ceci aussi :

Application.ScreenUpdating = False

 

[PMO2]

Re : Userform pour patienter

Bonjour,

Changez le code de CommandButton1_Click par

Private Sub CommandButton1_Click()
    Application.Run "'classeur2.xlsm'!Module1.Patientezopen"
DoEvents    '///ajout
    Application.Run "'classeur2.xlsm'!Module3.Temporisation"
    Application.Run "'classeur2.xlsm'!Module2.Patientezclose"
End Sub

 

[noemie45]

Re : Userform pour patienter

ohhhh mille merci.....

 

[xhudi69]

Re : Userform pour patienter

Bonjour noemie45, le Forum
Bonjour Pierrot93
Bonjour PMO2

Il me semble que tu te compliques un peu les choses.
Mettre le ShowModal de l'UserForm1 à False
Mettre dans le bouton simplement:

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

C'est en fin de ta procédure principale que tu mettras UnLoad UserForm1 comme tu mettras aussi en début UserForm1.Show.

Si ta procédure est longue, il serait préférable d'insérer sur l'UserForm principal une ProgressBar.

@+