L
Ludwig
Guest
Bonsoir à tous,
Une petite question en passant...
Est-ce que quelqu'un saurait comment faire pour afficher un message, userform ou même une image d'attente pendant que la macro s'excécute.
J'ai un code qui ressemble à ça, mais bon ... pas terrible
Sub TempsMacro()
Dim Compteur As Long
Dim Compteur1 As Long
Compteur = GetTickCount
Call Macro1
Compteur = (GetTickCount - Compteur) / 10
Application.Wait Now + TimeValue("00:00:00" & Compteur)
UserForm1.Hide
End Sub
Si quelqu'un voit de la lumière en passant...
D'avance merci
Ludwig
Une petite question en passant...
Est-ce que quelqu'un saurait comment faire pour afficher un message, userform ou même une image d'attente pendant que la macro s'excécute.
J'ai un code qui ressemble à ça, mais bon ... pas terrible
Sub TempsMacro()
Dim Compteur As Long
Dim Compteur1 As Long
Compteur = GetTickCount
Call Macro1
Compteur = (GetTickCount - Compteur) / 10
Application.Wait Now + TimeValue("00:00:00" & Compteur)
UserForm1.Hide
End Sub
Si quelqu'un voit de la lumière en passant...
D'avance merci
Ludwig