Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

USF Message d'attente

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Philippe

XLDnaute Occasionnel
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
810
Réponses
8
Affichages
5 K
A
Réponses
5
Affichages
2 K
A
D
Réponses
3
Affichages
2 K
Don Foster
D
T
Réponses
1
Affichages
1 K
D
A
Réponses
6
Affichages
1 K
The Munchkin
T
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…