USF Message d'attente

[Philippe]

Bonsoir à tous,

la question a certainement été abordée mais je n'ai pas trouvé de réponse dans l'historique almors je sollicite un petit coup de pouce...

Pendant le déroulement d'une macro je souhaite qu'une UST "veuillez patienter SVP" s'affiche...
le problème c'est que l'affichage de l'USF bloque le dféroulement de la macro tant que je ne la ferme pas...
Si je la configure sur showmodal=false, là ça ne bloque plus mais l'USF est uniformément blanche et donc...pas de message...
Merci pour votre aide
Philippe

 

[Philippe]

Re : USF Message d'attente

Oulà!! pardon pour les fautes de frappe...
Philippe

 

[Krut]

Re : USF Message d'attente

Bonsoir,

J'aimerai savoir si le message d'attente apparait à la suite d'une macro provenant de l'USF ou l'USF est indépendant ?

 

[Krut]

Re : USF Message d'attente

Re

Voici une aide 🙂 :

Private Sub CommandButton1_Click()
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Cliquez sur Oui pour effectuer une pause de 5 secondes", 4)) = vbYes Then
PauseTime = 5 ' Définit la durée.
Start = Timer ' Définit l'heure de début.
MsgBox ("Veuillez patienter")
Do While Timer < Start + PauseTime
DoEvents ' Donne le contrôle à d'autres processus.
Loop
Finish = Timer ' Définit l'heure de fin.
TotalTime = Finish - Start ' Calcule la durée totale.
MsgBox "Pause de " & TotalTime & " seconde(s)"
Else
'rien à faire
End If
End Sub

 

[Philippe]

Re : USF Message d'attente

Salut Krut,
j'ai trouvé!!! l'USF doit être non modal et SURTOUTpour qu'il ne reste pas tout blanc:

sub mamacro ()
userform1.show
userform1.repaint <--- C'est çà qui est important
'''Le code à éxécuter'''
unload userform1
end sub

Merci
Bonsoir

Philippe