Remplacement Sablier par un MSGBOX

Papou-net à dit:

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)

Cliquez pour agrandir...

mromain à dit:

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+

Cliquez pour agrandir...