Private Sub test()
Application.Wait (Now + TimeValue("00:00:05"))
End Sub
Sub test2()
Dim i As Long, myUsf As New UserForm1
myUsf.Show 0
test
Unload myUsf
End Sub
Bonjour Jorisphi,
Une méthode simple pour celà :
Tu crées une zone de texte (colorée de préférence) et affichant ton message et tu règles sa propriété Visible à False.
Au début de ta macro, tu la passes en Visible=True, et à la fin de ta macro, tu la remets à False.
Il est préférable pour celà d'utiliser un Label depuis la barre d'outils Contrôles.
Espérant avoir répondu.
Cordialement.
(Bonjour mromain)
bonjour jorisphi,
Après avoir créé un UserForm avec un Label ("Travail encours"), exécuter ce code :
Code:Private Sub test() Application.Wait (Now + TimeValue("00:00:05")) End Sub Sub test2() Dim i As Long, myUsf As New UserForm1 myUsf.Show 0 test Unload myUsf End Sub
a+