Msgbox vbmodeless qui bug

Résolu
zahr kall Messages postés 63 Statut Membre -  
zahr kall Messages postés 63 Statut Membre -
Bonjour à tous,

j'ai découvert comment faire apparaitre un msgbox pendant l'exécution d'une macro en arrière plan.
Jusque là, tout va bien.

boitedialogue est une UF

Je lance la macro :

boitedialogue.Show vbModeless
boitedialogue.Label1.Caption = "Merci de patienter un instant..."

MesCalculs

Unload boitedialogue


Mon bug en question, est que pendant l'exécution du code, j'ai une fenêtre toute blanche sans mon magnifique texte!!! :(
Le texte par contre apparait au moment où MesCalculs sont finis.

Si quelqu'un voit d'où peut venir ce problème, merci.
Sinon, tant pis, je ferai sans.

Bonne journée.
ZK
A voir également:

3 réponses

pilas31 Messages postés 1878 Statut Contributeur 647
 
Bonjour,

Je pense qu'Il faut essayer de mettre un ordre de "REPAINT" de l'UF comme cela :
boitedialogue.Show vbModeless
boitedialogue.Label1.Caption = "Merci de patienter un instant..."
boitedialogue.Repaint

'MesCalculs

Unload boitedialogue


Elle est non modale mais cela oblige VBA à mettre à jour l'UF.

A+
1
zahr kall Messages postés 63 Statut Membre 10
 
Bonjour Pilas31,

Il semble que ce soit la solution. J'ai testé chez moi et ça marche.
Il me reste à tester au boulot.
Merci beaucoup et bonne soirée.
0
zahr kall Messages postés 63 Statut Membre 10
 
Je confirme, c'est parfait!!
Merci encore.
0