Screen updating=0 ne permet pas de voir le Msg de l'userform!

[shmider]

Bonjour,

J'ai un petit souci lié à un userform.
En fait, mon soucis réside dans le screen updating = False. et du coup je n'arrive à voir le contenu de l'userform qui dit en gros "traitement en cours".

comment faire pour contourner ce problème?

Merci de votre aide s'il vous plait.
@+

 

[chris]

Re : Screen updating=0 ne permet pas de voir le Msg de l'userform!

Bonjour
Il faut soit le déplacer après la ligne d'affichage du USF ou bien remettre un ligne true juste avant et une ligne false juste après

 

[shmider]

Re : Screen updating=0 ne permet pas de voir le Msg de l'userform!

Bonjour Chris,
Bonjour tout le monde,
et salut le forum 😉

En fait, j'ai essayé hier de mettre le screen updating avant "=1" et juste aprés "=0" mais ça marche toujours pas!!

Avait vous une suggestion s'il vous plait?

Merci et @+

 

[Catrice]

Re : Screen updating=0 ne permet pas de voir le Msg de l'userform!

Bonjour,

Sur l'USF, essaie : ShowModal = False

 

[shmider]

Re : Screen updating=0 ne permet pas de voir le Msg de l'userform!

Hello Catrice,
Regarde ce que j'ai fait s'il te plait :

Application.ScreenUpdating = 1
Load userform
ShowModal = False
userform.Show resumeNext

Calculs 'ici j'appel le module "calculs"

Unload WIP 'une fois le module "calculs" est terminé je ferme l'userform

Mais j'ai toujours l'user form en blanc !!!


Merci à toi
@+

 

[Catrice]

Re : Screen updating=0 ne permet pas de voir le Msg de l'userform!

Re,

Peux tu fournir un bout de fichier ?
Ou un peu plus de code ?

NB - C'est bon, je reproduis, je regarde ...

 

[Pierrot93]

Re : Screen updating=0 ne permet pas de voir le Msg de l'userform!

Bonjour à tous

essaye peut être en supprimant les codes relatifs au raffraichissement d'écran :

Application.ScreenUpdating

ensuite regarde peut être du coté de la méthode "repaint" ou de la fonction "doevents"... peut être qu'un tout petit fichier représentant le problème nous aiderait à t'aider...

bonne journée
@+

 

[Catrice]

Re : Screen updating=0 ne permet pas de voir le Msg de l'userform!

Re,
Bonjour Pierrot93,

La solution doit etre dans le "Repaint".
C'est ce que j'étais en train de tester :

Sub Test()
Application.ScreenUpdating = True 'ou False
ShowModal = False
UserForm1.Show
UserForm1.Repaint
calculs
Unload UserForm1
End Sub

Fonctionne chez moi

 

[shmider]

Re : Screen updating=0 ne permet pas de voir le Msg de l'userform!

Rebonjour, Je tiens à vous remércier pour votre temps. J'ai vraiement besoin d'un petit coup de pouce.

En fait je viens d'appliquer votre code et je remarque que le temps de traitement à dû augmenter 6 minutes maintenant (avant il était de moins de 3 minutes).
Le code que j'ai utilisé est:

Sub Test()

Application.ScreenUpdating = False

ShowModal = False
UserForm1.Show
UserForm1.Repaint

calculs 'ceci dure 3 minute avant et maintenant plus que 6mn 😱

Unload UserForm1

End Sub

Que faire trouver un bon compremis?

Note: pour le code "calculs" il se trouve ici:
https://www.excel-downloads.com/threads/conversion-des-donnees-separees-par-en-ligne.121535/

Merci à vous
@+

 

[Catrice]

Re : Screen updating=0 ne permet pas de voir le Msg de l'userform!

Re,

Le temps double quand tu rajoutes la ligne Repaint ?

 

[shmider]

Re : Screen updating=0 ne permet pas de voir le Msg de l'userform!

Oui effectivement je dirais meme triple !!

Re,

Le temps double quand tu rajoutes la ligne Repaint ?

 

[shmider]

Re : Screen updating=0 ne permet pas de voir le Msg de l'userform!

C'est bon, je vois d'ou vient le problème.

En fait, c'est tout simple: il fallait un userform.show ResumeNext

😉

@+

 

[mifduldy]

Re : Screen updating=0 ne permet pas de voir le Msg de l'userform!

bonjour tout le monde. Nice to meet you all.