Discussion :

[HQ_LG4]

J'aimerais faire afficher une msgbox quelques instant (3 secondes) à l'écran afin de pas avoir besoin de clicker sur OK. J'aimerais que le msgbox émette un beep pour informer l'utilisateur que la macro est terminée. Merci de votre aide!

[Alqualonde]

Pour le bip c'est facile, il suffit de mettre la commande Beep à la fin de ta macro.
En revanche je ne sais pas comment faire un timer sur une MsgBox...

[Michel_M]

Bonjour à tous

ci dessous comment choisir un son ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Option Explicit
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
 
Sub faire_bip()
Beep 500, 400
End Sub

le premier chiffre est la note, le deuxième la durée

Pour le message, j'opterais plutôt pour un userform avec la fonction "timer": tu trouveras un exemple dans l'aide (F1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
  PauseTime = 3    ' Définit la durée.
tonuserform.show
    Start = Timer    ' Définit l'heure de début.
Do While Timer < Start + PauseTime
  DoEvents    ' Donne le contrôle à d'autres processus.
Loop

unload tonuserform